/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / packages / tar-mode.elc.z / tar-mode.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 32 |on Mon M|ar  9 12|
|00000040| 3a 35 33 3a 32 38 20 31 | 39 39 38 0a 3b 3b 3b 20 |:53:28 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 70 61 63 6b |s-20.3/l|isp/pack|
|000000a0| 61 67 65 73 2f 74 61 72 | 2d 6d 6f 64 65 2e 65 6c |ages/tar|-mode.el|
|000000b0| 0a 3b 3b 3b 20 65 6d 61 | 63 73 20 76 65 72 73 69 |.;;; ema|cs versi|
|000000c0| 6f 6e 20 32 30 2e 34 20 | 22 45 6d 65 72 61 6c 64 |on 20.4 |"Emerald|
|000000d0| 22 20 58 45 6d 61 63 73 | 20 20 4c 75 63 69 64 2e |" XEmacs|  Lucid.|
|000000e0| 0a 3b 3b 3b 20 62 79 74 | 65 63 6f 6d 70 20 76 65 |.;;; byt|ecomp ve|
|000000f0| 72 73 69 6f 6e 20 32 2e | 32 35 20 58 45 6d 61 63 |rsion 2.|25 XEmac|
|00000100| 73 3b 20 32 32 2d 4d 61 | 72 2d 39 36 2e 0a 3b 3b |s; 22-Ma|r-96..;;|
|00000110| 3b 20 6f 70 74 69 6d 69 | 7a 61 74 69 6f 6e 20 69 |; optimi|zation i|
|00000120| 73 20 6f 6e 2e 0a 3b 3b | 3b 20 74 68 69 73 20 66 |s on..;;|; this f|
|00000130| 69 6c 65 20 75 73 65 73 | 20 6f 70 63 6f 64 65 73 |ile uses| opcodes|
|00000140| 20 77 68 69 63 68 20 64 | 6f 20 6e 6f 74 20 65 78 | which d|o not ex|
|00000150| 69 73 74 20 69 6e 20 45 | 6d 61 63 73 20 31 39 2e |ist in E|macs 19.|
|00000160| 0a 0a 28 69 66 20 28 61 | 6e 64 20 28 62 6f 75 6e |..(if (a|nd (boun|
|00000170| 64 70 20 27 65 6d 61 63 | 73 2d 76 65 72 73 69 6f |dp 'emac|s-versio|
|00000180| 6e 29 0a 09 20 28 6f 72 | 20 28 61 6e 64 20 28 62 |n).. (or| (and (b|
|00000190| 6f 75 6e 64 70 20 27 65 | 70 6f 63 68 3a 3a 76 65 |oundp 'e|poch::ve|
|000001a0| 72 73 69 6f 6e 29 20 65 | 70 6f 63 68 3a 3a 76 65 |rsion) e|poch::ve|
|000001b0| 72 73 69 6f 6e 29 0a 09 | 20 20 20 20 20 28 73 74 |rsion)..|     (st|
|000001c0| 72 69 6e 67 2d 6c 65 73 | 73 70 20 65 6d 61 63 73 |ring-les|sp emacs|
|000001d0| 2d 76 65 72 73 69 6f 6e | 20 22 32 30 22 29 29 29 |-version| "20")))|
|000001e0| 0a 20 20 20 20 28 65 72 | 72 6f 72 20 22 60 74 61 |.    (er|ror "`ta|
|000001f0| 72 2d 6d 6f 64 65 2e 65 | 6c 27 20 77 61 73 20 63 |r-mode.e|l' was c|
|00000200| 6f 6d 70 69 6c 65 64 20 | 66 6f 72 20 45 6d 61 63 |ompiled |for Emac|
|00000210| 73 20 32 30 22 29 29 0a | 0a 28 6f 72 20 28 62 6f |s 20")).|.(or (bo|
|00000220| 75 6e 64 70 20 27 63 75 | 72 72 65 6e 74 2d 6c 6f |undp 'cu|rrent-lo|
|00000230| 61 64 2d 6c 69 73 74 29 | 20 28 73 65 74 71 20 63 |ad-list)| (setq c|
|00000240| 75 72 72 65 6e 74 2d 6c | 6f 61 64 2d 6c 69 73 74 |urrent-l|oad-list|
|00000250| 20 6e 69 6c 29 29 0a 0a | 0a 28 63 75 73 74 6f 6d | nil))..|.(custom|
|00000260| 2d 64 65 63 6c 61 72 65 | 2d 67 72 6f 75 70 20 27 |-declare|-group '|
|00000270| 74 61 72 20 6e 69 6c 20 | 22 53 69 6d 70 6c 65 20 |tar nil |"Simple |
|00000280| 65 64 69 74 69 6e 67 20 | 6f 66 20 74 61 72 20 66 |editing |of tar f|
|00000290| 69 6c 65 73 20 66 72 6f | 6d 20 47 4e 55 20 65 6d |iles fro|m GNU em|
|000002a0| 61 63 73 2e 22 20 3a 67 | 72 6f 75 70 20 27 75 6e |acs." :g|roup 'un|
|000002b0| 69 78 20 3a 67 72 6f 75 | 70 20 27 64 61 74 61 29 |ix :grou|p 'data)|
|000002c0| 0a 28 63 75 73 74 6f 6d | 2d 64 65 63 6c 61 72 65 |.(custom|-declare|
|000002d0| 2d 76 61 72 69 61 62 6c | 65 20 27 74 61 72 2d 61 |-variabl|e 'tar-a|
|000002e0| 6e 61 6c 2d 62 6c 6f 63 | 6b 73 69 7a 65 20 27 32 |nal-bloc|ksize '2|
|000002f0| 30 20 22 2a 54 68 65 20 | 62 6c 6f 63 6b 73 69 7a |0 "*The |blocksiz|
|00000300| 65 20 6f 66 20 74 61 72 | 20 66 69 6c 65 73 20 77 |e of tar| files w|
|00000310| 72 69 74 74 65 6e 20 62 | 79 20 45 6d 61 63 73 2c |ritten b|y Emacs,|
|00000320| 20 6f 72 20 6e 69 6c 2c | 20 6d 65 61 6e 69 6e 67 | or nil,| meaning|
|00000330| 20 64 6f 6e 27 74 20 63 | 61 72 65 2e 5c 6e 54 68 | don't c|are.\nTh|
|00000340| 65 20 62 6c 6f 63 6b 73 | 69 7a 65 20 6f 66 20 61 |e blocks|ize of a|
|00000350| 20 74 61 72 20 66 69 6c | 65 20 69 73 20 6e 6f 74 | tar fil|e is not|
|00000360| 20 72 65 61 6c 6c 79 20 | 74 68 65 20 73 69 7a 65 | really |the size|
|00000370| 20 6f 66 20 74 68 65 20 | 62 6c 6f 63 6b 73 3b 20 | of the |blocks; |
|00000380| 72 61 74 68 65 72 2c 20 | 69 74 20 69 73 5c 6e 74 |rather, |it is\nt|
|00000390| 68 65 20 6e 75 6d 62 65 | 72 20 6f 66 20 62 6c 6f |he numbe|r of blo|
|000003a0| 63 6b 73 20 77 72 69 74 | 74 65 6e 20 77 69 74 68 |cks writ|ten with|
|000003b0| 20 6f 6e 65 20 73 79 73 | 74 65 6d 20 63 61 6c 6c | one sys|tem call|
|000003c0| 2e 20 20 57 68 65 6e 20 | 74 61 72 72 69 6e 67 20 |.  When |tarring |
|000003d0| 74 6f 20 61 20 74 61 70 | 65 2c 20 5c 6e 74 68 69 |to a tap|e, \nthi|
|000003e0| 73 20 69 73 20 74 68 65 | 20 73 69 7a 65 20 6f 66 |s is the| size of|
|000003f0| 20 74 68 65 20 2a 74 61 | 70 65 2a 20 62 6c 6f 63 | the *ta|pe* bloc|
|00000400| 6b 73 2c 20 62 75 74 20 | 77 68 65 6e 20 77 72 69 |ks, but |when wri|
|00000410| 74 69 6e 67 20 74 6f 20 | 61 20 66 69 6c 65 2c 20 |ting to |a file, |
|00000420| 69 74 20 64 6f 65 73 6e | 27 74 5c 6e 6d 61 74 74 |it doesn|'t\nmatt|
|00000430| 65 72 20 6d 75 63 68 2e | 20 20 54 68 65 20 6f 6e |er much.|  The on|
|00000440| 6c 79 20 6e 6f 74 69 63 | 65 61 62 6c 65 20 64 69 |ly notic|eable di|
|00000450| 66 66 65 72 65 6e 63 65 | 20 69 73 20 74 68 61 74 |fference| is that|
|00000460| 20 69 66 20 61 20 74 61 | 72 20 66 69 6c 65 20 64 | if a ta|r file d|
|00000470| 6f 65 73 20 6e 6f 74 5c | 6e 68 61 76 65 20 61 20 |oes not\|nhave a |
|00000480| 62 6c 6f 63 6b 73 69 7a | 65 20 6f 66 20 32 30 2c |blocksiz|e of 20,|
|00000490| 20 74 68 65 20 74 61 72 | 20 70 72 6f 67 72 61 6d | the tar| program|
|000004a0| 20 77 69 6c 6c 20 69 73 | 73 75 65 20 61 20 77 61 | will is|sue a wa|
|000004b0| 72 6e 69 6e 67 3b 20 61 | 6c 6c 20 74 68 69 73 20 |rning; a|ll this |
|000004c0| 72 65 61 6c 6c 79 5c 6e | 63 6f 6e 74 72 6f 6c 73 |really\n|controls|
|000004d0| 20 69 73 20 68 6f 77 20 | 6d 61 6e 79 20 6e 75 6c | is how |many nul|
|000004e0| 6c 20 70 61 64 64 69 6e | 67 20 62 79 74 65 73 20 |l paddin|g bytes |
|000004f0| 67 6f 20 6f 6e 20 74 68 | 65 20 65 6e 64 20 6f 66 |go on th|e end of|
|00000500| 20 74 68 65 20 74 61 72 | 20 66 69 6c 65 2e 22 20 | the tar| file." |
|00000510| 3a 74 79 70 65 20 27 69 | 6e 74 65 67 65 72 20 3a |:type 'i|nteger :|
|00000520| 67 72 6f 75 70 20 27 74 | 61 72 29 0a 28 63 75 73 |group 't|ar).(cus|
|00000530| 74 6f 6d 2d 64 65 63 6c | 61 72 65 2d 76 61 72 69 |tom-decl|are-vari|
|00000540| 61 62 6c 65 20 27 74 61 | 72 2d 75 70 64 61 74 65 |able 'ta|r-update|
|00000550| 2d 64 61 74 65 73 74 61 | 6d 70 20 27 74 20 22 2a |-datesta|mp 't "*|
|00000560| 57 68 65 74 68 65 72 20 | 74 61 72 2d 6d 6f 64 65 |Whether |tar-mode|
|00000570| 20 73 68 6f 75 6c 64 20 | 70 6c 61 79 20 66 61 73 | should |play fas|
|00000580| 74 20 61 6e 64 20 6c 6f | 6f 73 65 20 77 69 74 68 |t and lo|ose with|
|00000590| 20 73 75 62 2d 66 69 6c | 65 20 64 61 74 65 73 74 | sub-fil|e datest|
|000005a0| 61 6d 70 73 3b 5c 6e 69 | 66 20 74 68 69 73 20 69 |amps;\ni|f this i|
|000005b0| 73 20 74 72 75 65 2c 20 | 74 68 65 6e 20 65 64 69 |s true, |then edi|
|000005c0| 74 69 6e 67 20 61 6e 64 | 20 73 61 76 69 6e 67 20 |ting and| saving |
|000005d0| 61 20 74 61 72 20 66 69 | 6c 65 20 65 6e 74 72 79 |a tar fi|le entry|
|000005e0| 20 62 61 63 6b 20 69 6e | 74 6f 20 69 74 73 5c 6e | back in|to its\n|
|000005f0| 74 61 72 20 66 69 6c 65 | 20 77 69 6c 6c 20 75 70 |tar file| will up|
|00000600| 64 61 74 65 20 69 74 73 | 20 64 61 74 65 73 74 61 |date its| datesta|
|00000610| 6d 70 2e 20 20 49 66 20 | 66 61 6c 73 65 2c 20 74 |mp.  If |false, t|
|00000620| 68 65 20 64 61 74 65 73 | 74 61 6d 70 20 69 73 20 |he dates|tamp is |
|00000630| 75 6e 63 68 61 6e 67 65 | 64 2e 5c 6e 59 6f 75 20 |unchange|d.\nYou |
|00000640| 6d 61 79 20 6f 72 20 6d | 61 79 20 6e 6f 74 20 77 |may or m|ay not w|
|00000650| 61 6e 74 20 74 68 69 73 | 20 2d 20 69 74 20 69 73 |ant this| - it is|
|00000660| 20 67 6f 6f 64 20 69 6e | 20 74 68 61 74 20 79 6f | good in| that yo|
|00000670| 75 20 63 61 6e 20 74 65 | 6c 6c 20 77 68 65 6e 20 |u can te|ll when |
|00000680| 61 20 66 69 6c 65 5c 6e | 69 6e 20 61 20 74 61 72 |a file\n|in a tar|
|00000690| 20 61 72 63 68 69 76 65 | 20 68 61 73 20 62 65 65 | archive| has bee|
|000006a0| 6e 20 63 68 61 6e 67 65 | 64 2c 20 62 75 74 20 69 |n change|d, but i|
|000006b0| 74 20 69 73 20 62 61 64 | 20 66 6f 72 20 74 68 65 |t is bad| for the|
|000006c0| 20 73 61 6d 65 20 72 65 | 61 73 6f 6e 20 74 68 61 | same re|ason tha|
|000006d0| 74 5c 6e 65 64 69 74 69 | 6e 67 20 61 20 66 69 6c |t\nediti|ng a fil|
|000006e0| 65 20 69 6e 20 74 68 65 | 20 74 61 72 20 61 72 63 |e in the| tar arc|
|000006f0| 68 69 76 65 20 61 74 20 | 61 6c 6c 20 69 73 20 62 |hive at |all is b|
|00000700| 61 64 20 2d 20 74 68 65 | 20 63 68 61 6e 67 65 64 |ad - the| changed|
|00000710| 20 76 65 72 73 69 6f 6e | 20 6f 66 20 5c 6e 74 68 | version| of \nth|
|00000720| 65 20 66 69 6c 65 20 6e | 65 76 65 72 20 65 78 69 |e file n|ever exi|
|00000730| 73 74 73 20 6f 6e 20 64 | 69 73 6b 2e 5c 6e 5c 6e |sts on d|isk.\n\n|
|00000740| 54 68 69 73 20 64 6f 65 | 73 20 6e 6f 74 20 77 6f |This doe|s not wo|
|00000750| 72 6b 20 69 6e 20 45 6d | 61 63 73 20 31 38 2c 20 |rk in Em|acs 18, |
|00000760| 62 65 63 61 75 73 65 20 | 74 68 65 72 65 27 73 20 |because |there's |
|00000770| 6e 6f 20 77 61 79 20 74 | 6f 20 67 65 74 20 74 68 |no way t|o get th|
|00000780| 65 20 63 75 72 72 65 6e | 74 20 5c 6e 74 69 6d 65 |e curren|t \ntime|
|00000790| 20 61 73 20 61 6e 20 69 | 6e 74 65 67 65 72 20 2d | as an i|nteger -|
|000007a0| 20 69 66 20 74 68 69 73 | 20 76 61 72 20 69 73 20 | if this| var is |
|000007b0| 74 72 75 65 2c 20 74 68 | 65 6e 20 65 64 69 74 69 |true, th|en editi|
|000007c0| 6e 67 20 61 20 66 69 6c | 65 20 73 65 74 73 20 69 |ng a fil|e sets i|
|000007d0| 74 73 20 64 61 74 65 5c | 6e 74 6f 20 6d 69 64 6e |ts date\|nto midn|
|000007e0| 69 67 68 74 2c 20 4a 61 | 6e 20 31 20 31 39 37 30 |ight, Ja|n 1 1970|
|000007f0| 20 47 4d 54 2c 20 77 68 | 69 63 68 20 68 61 70 70 | GMT, wh|ich happ|
|00000800| 65 6e 73 20 74 6f 20 62 | 65 20 77 68 61 74 20 30 |ens to b|e what 0|
|00000810| 20 65 6e 63 6f 64 65 73 | 2e 22 20 3a 74 79 70 65 | encodes|." :type|
|00000820| 20 27 62 6f 6f 6c 65 61 | 6e 20 3a 67 72 6f 75 70 | 'boolea|n :group|
|00000830| 20 27 74 61 72 29 0a 28 | 64 65 66 61 6c 69 61 73 | 'tar).(|defalias|
|00000840| 20 27 6d 61 6b 65 2d 74 | 61 72 2d 68 65 61 64 65 | 'make-t|ar-heade|
|00000850| 72 20 27 28 6d 61 63 72 | 6f 20 2e 20 23 5b 28 6e |r '(macr|o . #[(n|
|00000860| 61 6d 65 20 6d 6f 64 65 | 20 75 69 64 20 67 69 74 |ame mode| uid git|
|00000870| 20 73 69 7a 65 20 64 61 | 74 65 20 63 6b 20 6c 74 | size da|te ck lt|
|00000880| 20 6c 6e 20 6d 61 67 69 | 63 20 75 6e 61 6d 65 20 | ln magi|c uname |
|00000890| 67 6e 61 6d 65 20 64 65 | 76 6d 61 6a 20 64 65 76 |gname de|vmaj dev|
|000008a0| 6d 69 6e 29 20 22 c0 09 | 5c 6e 0b 0c 0d 0e 06 0e |min) "..|\n......|
|000008b0| 07 0e 08 0e 09 0e 5c 6e | 0e 0b 0e 0c 0e 0d 0e 0e |......\n|........|
|000008c0| af 0f 87 22 20 5b 76 65 | 63 74 6f 72 20 6e 61 6d |..." [ve|ctor nam|
|000008d0| 65 20 6d 6f 64 65 20 75 | 69 64 20 67 69 74 20 73 |e mode u|id git s|
|000008e0| 69 7a 65 20 64 61 74 65 | 20 63 6b 20 6c 74 20 6c |ize date| ck lt l|
|000008f0| 6e 20 6d 61 67 69 63 20 | 75 6e 61 6d 65 20 67 6e |n magic |uname gn|
|00000900| 61 6d 65 20 64 65 76 6d | 61 6a 20 64 65 76 6d 69 |ame devm|aj devmi|
|00000910| 6e 5d 20 31 35 5d 29 29 | 0a 28 64 65 66 61 6c 69 |n] 15]))|.(defali|
|00000920| 61 73 20 27 74 61 72 2d | 68 65 61 64 65 72 2d 6e |as 'tar-|header-n|
|00000930| 61 6d 65 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ame '(ma|cro . #[|
|00000940| 28 78 29 20 22 c0 09 c2 | 45 87 22 20 5b 61 72 65 |(x) "...|E." [are|
|00000950| 66 20 78 20 30 5d 20 33 | 5d 29 29 0a 28 64 65 66 |f x 0] 3|])).(def|
|00000960| 61 6c 69 61 73 20 27 74 | 61 72 2d 68 65 61 64 65 |alias 't|ar-heade|
|00000970| 72 2d 6d 6f 64 65 20 27 | 28 6d 61 63 72 6f 20 2e |r-mode '|(macro .|
|00000980| 20 23 5b 28 78 29 20 22 | c0 09 c2 45 87 22 20 5b | #[(x) "|...E." [|
|00000990| 61 72 65 66 20 78 20 31 | 5d 20 33 5d 29 29 0a 28 |aref x 1|] 3])).(|
|000009a0| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 68 65 |defalias| 'tar-he|
|000009b0| 61 64 65 72 2d 75 69 64 | 20 27 28 6d 61 63 72 6f |ader-uid| '(macro|
|000009c0| 20 2e 20 23 5b 28 78 29 | 20 22 c0 09 c2 45 87 22 | . #[(x)| "...E."|
|000009d0| 20 5b 61 72 65 66 20 78 | 20 32 5d 20 33 5d 29 29 | [aref x| 2] 3]))|
|000009e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 74 61 72 2d |.(defali|as 'tar-|
|000009f0| 68 65 61 64 65 72 2d 67 | 69 64 20 27 28 6d 61 63 |header-g|id '(mac|
|00000a00| 72 6f 20 2e 20 23 5b 28 | 78 29 20 22 c0 09 c2 45 |ro . #[(|x) "...E|
|00000a10| 87 22 20 5b 61 72 65 66 | 20 78 20 33 5d 20 33 5d |." [aref| x 3] 3]|
|00000a20| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |)).(defa|lias 'ta|
|00000a30| 72 2d 68 65 61 64 65 72 | 2d 73 69 7a 65 20 27 28 |r-header|-size '(|
|00000a40| 6d 61 63 72 6f 20 2e 20 | 23 5b 28 78 29 20 22 c0 |macro . |#[(x) ".|
|00000a50| 09 c2 45 87 22 20 5b 61 | 72 65 66 20 78 20 34 5d |..E." [a|ref x 4]|
|00000a60| 20 33 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 3])).(d|efalias |
|00000a70| 27 74 61 72 2d 68 65 61 | 64 65 72 2d 64 61 74 65 |'tar-hea|der-date|
|00000a80| 20 27 28 6d 61 63 72 6f | 20 2e 20 23 5b 28 78 29 | '(macro| . #[(x)|
|00000a90| 20 22 c0 09 c2 45 87 22 | 20 5b 61 72 65 66 20 78 | "...E."| [aref x|
|00000aa0| 20 35 5d 20 33 5d 29 29 | 0a 28 64 65 66 61 6c 69 | 5] 3]))|.(defali|
|00000ab0| 61 73 20 27 74 61 72 2d | 68 65 61 64 65 72 2d 63 |as 'tar-|header-c|
|00000ac0| 68 65 63 6b 73 75 6d 20 | 27 28 6d 61 63 72 6f 20 |hecksum |'(macro |
|00000ad0| 2e 20 23 5b 28 78 29 20 | 22 c0 09 c2 45 87 22 20 |. #[(x) |"...E." |
|00000ae0| 5b 61 72 65 66 20 78 20 | 36 5d 20 33 5d 29 29 0a |[aref x |6] 3])).|
|00000af0| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 68 |(defalia|s 'tar-h|
|00000b00| 65 61 64 65 72 2d 6c 69 | 6e 6b 2d 74 79 70 65 20 |eader-li|nk-type |
|00000b10| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 |'(macro |. #[(x) |
|00000b20| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 78 20 |"...E." |[aref x |
|00000b30| 37 5d 20 33 5d 29 29 0a | 28 64 65 66 61 6c 69 61 |7] 3])).|(defalia|
|00000b40| 73 20 27 74 61 72 2d 68 | 65 61 64 65 72 2d 6c 69 |s 'tar-h|eader-li|
|00000b50| 6e 6b 2d 6e 61 6d 65 20 | 27 28 6d 61 63 72 6f 20 |nk-name |'(macro |
|00000b60| 2e 20 23 5b 28 78 29 20 | 22 c0 09 c2 45 87 22 20 |. #[(x) |"...E." |
|00000b70| 5b 61 72 65 66 20 78 20 | 38 5d 20 33 5d 29 29 0a |[aref x |8] 3])).|
|00000b80| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 68 |(defalia|s 'tar-h|
|00000b90| 65 61 64 65 72 2d 6d 61 | 67 69 63 20 27 28 6d 61 |eader-ma|gic '(ma|
|00000ba0| 63 72 6f 20 2e 20 23 5b | 28 78 29 20 22 c0 09 c2 |cro . #[|(x) "...|
|00000bb0| 45 87 22 20 5b 61 72 65 | 66 20 78 20 39 5d 20 33 |E." [are|f x 9] 3|
|00000bc0| 5d 29 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |])).(def|alias 't|
|00000bd0| 61 72 2d 68 65 61 64 65 | 72 2d 75 6e 61 6d 65 20 |ar-heade|r-uname |
|00000be0| 27 28 6d 61 63 72 6f 20 | 2e 20 23 5b 28 78 29 20 |'(macro |. #[(x) |
|00000bf0| 22 c0 09 c2 45 87 22 20 | 5b 61 72 65 66 20 78 20 |"...E." |[aref x |
|00000c00| 31 30 5d 20 33 5d 29 29 | 0a 28 64 65 66 61 6c 69 |10] 3]))|.(defali|
|00000c10| 61 73 20 27 74 61 72 2d | 68 65 61 64 65 72 2d 67 |as 'tar-|header-g|
|00000c20| 6e 61 6d 65 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |name '(m|acro . #|
|00000c30| 5b 28 78 29 20 22 c0 09 | c2 45 87 22 20 5b 61 72 |[(x) "..|.E." [ar|
|00000c40| 65 66 20 78 20 31 31 5d | 20 33 5d 29 29 0a 28 64 |ef x 11]| 3])).(d|
|00000c50| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 68 65 61 |efalias |'tar-hea|
|00000c60| 64 65 72 2d 64 6d 61 6a | 20 27 28 6d 61 63 72 6f |der-dmaj| '(macro|
|00000c70| 20 2e 20 23 5b 28 78 29 | 20 22 c0 09 c2 45 87 22 | . #[(x)| "...E."|
|00000c80| 20 5b 61 72 65 66 20 78 | 20 31 32 5d 20 33 5d 29 | [aref x| 12] 3])|
|00000c90| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 72 |).(defal|ias 'tar|
|00000ca0| 2d 68 65 61 64 65 72 2d | 64 6d 69 6e 20 27 28 6d |-header-|dmin '(m|
|00000cb0| 61 63 72 6f 20 2e 20 23 | 5b 28 78 29 20 22 c0 09 |acro . #|[(x) "..|
|00000cc0| c2 45 87 22 20 5b 61 72 | 65 66 20 78 20 31 33 5d |.E." [ar|ef x 13]|
|00000cd0| 20 33 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 3])).(d|efalias |
|00000ce0| 27 6d 61 6b 65 2d 74 61 | 72 2d 64 65 73 63 20 27 |'make-ta|r-desc '|
|00000cf0| 28 6d 61 63 72 6f 20 2e | 20 23 5b 28 64 61 74 61 |(macro .| #[(data|
|00000d00| 2d 73 74 61 72 74 20 74 | 6f 6b 65 6e 73 29 20 22 |-start t|okens) "|
|00000d10| c0 09 5c 6e 45 87 22 20 | 5b 63 6f 6e 73 20 64 61 |..\nE." |[cons da|
|00000d20| 74 61 2d 73 74 61 72 74 | 20 74 6f 6b 65 6e 73 5d |ta-start| tokens]|
|00000d30| 20 33 5d 29 29 0a 28 64 | 65 66 61 6c 69 61 73 20 | 3])).(d|efalias |
|00000d40| 27 74 61 72 2d 64 65 73 | 63 2d 64 61 74 61 2d 73 |'tar-des|c-data-s|
|00000d50| 74 61 72 74 20 27 28 6d | 61 63 72 6f 20 2e 20 23 |tart '(m|acro . #|
|00000d60| 5b 28 78 29 20 22 c0 09 | 44 87 22 20 5b 63 61 72 |[(x) "..|D." [car|
|00000d70| 20 78 5d 20 32 5d 29 29 | 0a 28 64 65 66 61 6c 69 | x] 2]))|.(defali|
|00000d80| 61 73 20 27 74 61 72 2d | 64 65 73 63 2d 74 6f 6b |as 'tar-|desc-tok|
|00000d90| 65 6e 73 20 27 28 6d 61 | 63 72 6f 20 2e 20 23 5b |ens '(ma|cro . #[|
|00000da0| 28 78 29 20 22 c0 09 44 | 87 22 20 5b 63 64 72 20 |(x) "..D|." [cdr |
|00000db0| 78 5d 20 32 5d 29 29 0a | 28 62 79 74 65 2d 63 6f |x] 2])).|(byte-co|
|00000dc0| 64 65 20 22 c0 11 c1 5c | 6e 42 12 09 c3 5c 5c 14 |de "...\|nB...\\.|
|00000dd0| c4 5c 6e 42 12 0c c5 5c | 5c 16 06 c6 5c 6e 42 12 |.\nB...\|\...\nB.|
|00000de0| 0e 06 c5 5c 5c 16 07 c7 | 5c 6e 42 12 0e 07 c5 5c |...\\...|\nB....\|
|00000df0| 5c 16 08 c8 5c 6e 42 12 | 0e 08 c9 5c 5c 16 5c 6e |\...\nB.|...\\.\n|
|00000e00| ca 5c 6e 42 12 0e 5c 6e | c9 5c 5c 16 0b cb 5c 6e |.\nB..\n|.\\...\n|
|00000e10| 42 12 0e 0b c5 5c 5c 16 | 0c cc 5c 6e 42 12 0e 0c |B....\\.|..\nB...|
|00000e20| 54 16 0d cd 5c 6e 42 12 | 0e 0d c3 5c 5c 16 0e ce |T...\nB.|...\\...|
|00000e30| 5c 6e 42 12 0e 0e c5 5c | 5c 16 0f cf 5c 6e 42 12 |\nB....\|\...\nB.|
|00000e40| 0e 0f d0 5c 5c 16 11 d1 | 5c 6e 42 12 0e 11 d0 5c |...\\...|\nB....\|
|00000e50| 5c 16 12 d2 5c 6e 42 12 | 0e 12 c5 5c 5c 16 13 d3 |\...\nB.|...\\...|
|00000e60| 5c 6e 42 12 0e 13 c5 5c | 5c 16 14 d4 5c 6e 42 12 |\nB....\|\...\nB.|
|00000e70| c0 87 22 20 5b 30 20 74 | 61 72 2d 6e 61 6d 65 2d |.." [0 t|ar-name-|
|00000e80| 6f 66 66 73 65 74 20 63 | 75 72 72 65 6e 74 2d 6c |offset c|urrent-l|
|00000e90| 6f 61 64 2d 6c 69 73 74 | 20 31 30 30 20 74 61 72 |oad-list| 100 tar|
|00000ea0| 2d 6d 6f 64 65 2d 6f 66 | 66 73 65 74 20 38 20 74 |-mode-of|fset 8 t|
|00000eb0| 61 72 2d 75 69 64 2d 6f | 66 66 73 65 74 20 74 61 |ar-uid-o|ffset ta|
|00000ec0| 72 2d 67 69 64 2d 6f 66 | 66 73 65 74 20 74 61 72 |r-gid-of|fset tar|
|00000ed0| 2d 73 69 7a 65 2d 6f 66 | 66 73 65 74 20 31 32 20 |-size-of|fset 12 |
|00000ee0| 74 61 72 2d 74 69 6d 65 | 2d 6f 66 66 73 65 74 20 |tar-time|-offset |
|00000ef0| 74 61 72 2d 63 68 6b 2d | 6f 66 66 73 65 74 20 74 |tar-chk-|offset t|
|00000f00| 61 72 2d 6c 69 6e 6b 70 | 2d 6f 66 66 73 65 74 20 |ar-linkp|-offset |
|00000f10| 74 61 72 2d 6c 69 6e 6b | 2d 6f 66 66 73 65 74 20 |tar-link|-offset |
|00000f20| 74 61 72 2d 6d 61 67 69 | 63 2d 6f 66 66 73 65 74 |tar-magi|c-offset|
|00000f30| 20 74 61 72 2d 75 6e 61 | 6d 65 2d 6f 66 66 73 65 | tar-una|me-offse|
|00000f40| 74 20 33 32 20 74 61 72 | 2d 67 6e 61 6d 65 2d 6f |t 32 tar|-gname-o|
|00000f50| 66 66 73 65 74 20 74 61 | 72 2d 64 6d 61 6a 2d 6f |ffset ta|r-dmaj-o|
|00000f60| 66 66 73 65 74 20 74 61 | 72 2d 64 6d 69 6e 2d 6f |ffset ta|r-dmin-o|
|00000f70| 66 66 73 65 74 20 74 61 | 72 2d 65 6e 64 2d 6f 66 |ffset ta|r-end-of|
|00000f80| 66 73 65 74 5d 20 32 29 | 0a 23 40 31 32 33 20 52 |fset] 2)|.#@123 R|
|00000f90| 65 74 75 72 6e 73 20 61 | 20 27 74 61 72 2d 68 65 |eturns a| 'tar-he|
|00000fa0| 61 64 65 72 27 20 73 74 | 72 75 63 74 75 72 65 20 |ader' st|ructure |
|00000fb0| 28 61 20 6c 69 73 74 20 | 6f 66 20 6e 61 6d 65 2c |(a list |of name,|
|00000fc0| 20 6d 6f 64 65 2c 20 75 | 69 64 2c 20 67 69 64 2c | mode, u|id, gid,|
|00000fd0| 20 73 69 7a 65 2c 20 0a | 77 72 69 74 65 2d 64 61 | size, .|write-da|
|00000fe0| 74 65 2c 20 63 68 65 63 | 6b 73 75 6d 2c 20 6c 69 |te, chec|ksum, li|
|00000ff0| 6e 6b 2d 74 79 70 65 2c | 20 61 6e 64 20 6c 69 6e |nk-type,| and lin|
|00001000| 6b 2d 6e 61 6d 65 29 2e | 1f 0a 28 64 65 66 61 6c |k-name).|..(defal|
|00001010| 69 61 73 20 27 74 6f 6b | 65 6e 69 7a 65 2d 74 61 |ias 'tok|enize-ta|
|00001020| 72 2d 68 65 61 64 65 72 | 2d 62 6c 6f 63 6b 20 23 |r-header|-block #|
|00001030| 5b 28 73 74 72 69 6e 67 | 29 20 22 08 47 c1 57 ab |[(string|) ".G.W.|
|00001040| 82 c2 87 08 c3 48 c3 55 | ab 88 08 c4 48 c3 55 84 |.....H.U|....H.U.|
|00001050| 1a 01 0d 53 1e 06 0e 07 | 53 1e 08 0e 09 53 1e 5c |...S....|S....S.\|
|00001060| 6e 0e 0b 53 1e 0c 08 0e | 0d 48 1e 0e 08 0e 07 0e |n..S....|.H......|
|00001070| 0f 53 4f 89 1e 10 d1 98 | ae 84 0e 10 d2 98 1e 13 |.SO.....|........|
|00001080| c2 1e 14 d5 1e 16 d7 0e | 16 08 0e 18 23 ab 88 0e |........|....#...|
|00001090| 06 c3 95 53 5e 16 06 d7 | 0e 16 08 0e 19 23 ab 88 |...S^...|.....#..|
|000010a0| 0e 08 c3 95 53 5e 16 08 | d7 0e 16 08 0e 0f 23 ab |....S^..|......#.|
|000010b0| 88 0e 5c 6e c3 95 53 5e | 16 5c 6e d7 0e 16 08 0e |..\n..S^|.\n.....|
|000010c0| 09 23 ab 88 0e 0c c3 95 | 53 5e 16 0c 08 0e 18 0e |.#......|S^......|
|000010d0| 06 4f 16 14 0e 0e c3 55 | ae 84 0e 0e da 55 3f ad |.O.....U|.....U?.|
|000010e0| 84 0e 0e da 5a 89 16 0e | ac 8a d7 db 0e 14 5c 22 |....Z...|......\"|
|000010f0| ab 83 dc 16 0e dd 0e 14 | de 08 0d 0e 1f 53 23 de |........|.....S#.|
|00001100| 08 0e 1f 0e 20 53 23 de | 08 0e 20 0e 21 53 23 de |.... S#.|.. .!S#.|
|00001110| 08 0e 21 0e 5c 22 53 23 | e3 08 0e 5c 22 0e 24 53 |..!.\"S#|...\".$S|
|00001120| 23 de 08 0e 24 0e 0d 53 | 23 0e 0e 08 0e 19 0e 08 |#...$..S|#.......|
|00001130| 4f 0e 13 89 ad 86 08 0e | 0f 0e 5c 6e 4f 0e 13 ad |O.......|..\nO...|
|00001140| 86 08 0e 09 0e 0c 4f de | 08 0e 0b 0e 25 53 23 de |......O.|....%S#.|
|00001150| 08 0e 25 0e 26 53 23 26 | 0e 2e 09 87 e7 87 22 20 |..%.&S#&|......" |
|00001160| 5b 73 74 72 69 6e 67 20 | 35 31 32 20 6e 69 6c 20 |[string |512 nil |
|00001170| 30 20 31 30 31 20 74 61 | 72 2d 6d 6f 64 65 2d 6f |0 101 ta|r-mode-o|
|00001180| 66 66 73 65 74 20 6e 61 | 6d 65 2d 65 6e 64 20 74 |ffset na|me-end t|
|00001190| 61 72 2d 6d 61 67 69 63 | 2d 6f 66 66 73 65 74 20 |ar-magic|-offset |
|000011a0| 6c 69 6e 6b 2d 65 6e 64 | 20 74 61 72 2d 67 6e 61 |link-end| tar-gna|
|000011b0| 6d 65 2d 6f 66 66 73 65 | 74 20 75 6e 61 6d 65 2d |me-offse|t uname-|
|000011c0| 65 6e 64 20 74 61 72 2d | 64 6d 61 6a 2d 6f 66 66 |end tar-|dmaj-off|
|000011d0| 73 65 74 20 67 6e 61 6d | 65 2d 65 6e 64 20 74 61 |set gnam|e-end ta|
|000011e0| 72 2d 6c 69 6e 6b 70 2d | 6f 66 66 73 65 74 20 6c |r-linkp-|offset l|
|000011f0| 69 6e 6b 2d 70 20 74 61 | 72 2d 75 6e 61 6d 65 2d |ink-p ta|r-uname-|
|00001200| 6f 66 66 73 65 74 20 6d | 61 67 69 63 2d 73 74 72 |offset m|agic-str|
|00001210| 20 22 75 73 74 61 72 20 | 20 22 20 22 47 4e 55 74 | "ustar | " "GNUt|
|00001220| 61 72 20 22 20 75 6e 61 | 6d 65 2d 76 61 6c 69 64 |ar " una|me-valid|
|00001230| 2d 70 20 6e 61 6d 65 20 | 22 5b 5e 00 5d 2a 00 22 |-p name |"[^.]*."|
|00001240| 20 6e 75 6c 73 65 78 70 | 20 73 74 72 69 6e 67 2d | nulsexp| string-|
|00001250| 6d 61 74 63 68 20 74 61 | 72 2d 6e 61 6d 65 2d 6f |match ta|r-name-o|
|00001260| 66 66 73 65 74 20 74 61 | 72 2d 6c 69 6e 6b 2d 6f |ffset ta|r-link-o|
|00001270| 66 66 73 65 74 20 3f 30 | 20 22 2f 24 22 20 35 20 |ffset ?0| "/$" 5 |
|00001280| 76 65 63 74 6f 72 20 74 | 61 72 2d 70 61 72 73 65 |vector t|ar-parse|
|00001290| 2d 6f 63 74 61 6c 2d 69 | 6e 74 65 67 65 72 20 74 |-octal-i|nteger t|
|000012a0| 61 72 2d 75 69 64 2d 6f | 66 66 73 65 74 20 74 61 |ar-uid-o|ffset ta|
|000012b0| 72 2d 67 69 64 2d 6f 66 | 66 73 65 74 20 74 61 72 |r-gid-of|fset tar|
|000012c0| 2d 73 69 7a 65 2d 6f 66 | 66 73 65 74 20 74 61 72 |-size-of|fset tar|
|000012d0| 2d 74 69 6d 65 2d 6f 66 | 66 73 65 74 20 74 61 72 |-time-of|fset tar|
|000012e0| 2d 70 61 72 73 65 2d 6f | 63 74 61 6c 2d 69 6e 74 |-parse-o|ctal-int|
|000012f0| 65 67 65 72 2d 33 32 20 | 74 61 72 2d 63 68 6b 2d |eger-32 |tar-chk-|
|00001300| 6f 66 66 73 65 74 20 74 | 61 72 2d 64 6d 69 6e 2d |offset t|ar-dmin-|
|00001310| 6f 66 66 73 65 74 20 74 | 61 72 2d 65 6e 64 2d 6f |offset t|ar-end-o|
|00001320| 66 66 73 65 74 20 65 6d | 70 74 79 2d 74 61 72 2d |ffset em|pty-tar-|
|00001330| 62 6c 6f 63 6b 5d 20 31 | 39 20 28 23 24 20 2e 20 |block] 1|9 (#$ . |
|00001340| 33 39 38 33 29 5d 29 0a | 23 40 34 33 20 64 65 6c |3983)]).|#@43 del|
|00001350| 65 74 65 73 20 61 6c 6c | 20 79 6f 75 72 20 66 69 |etes all| your fi|
|00001360| 6c 65 73 2c 20 61 6e 64 | 20 74 68 65 6e 20 72 65 |les, and| then re|
|00001370| 62 6f 6f 74 73 2e 1f 0a | 28 64 65 66 61 6c 69 61 |boots...|(defalia|
|00001380| 73 20 27 74 61 72 2d 70 | 61 72 73 65 2d 6f 63 74 |s 'tar-p|arse-oct|
|00001390| 61 6c 2d 69 6e 74 65 67 | 65 72 20 23 5b 28 73 74 |al-integ|er #[(st|
|000013a0| 72 69 6e 67 20 26 6f 70 | 74 69 6f 6e 61 6c 20 73 |ring &op|tional s|
|000013b0| 74 61 72 74 20 65 6e 64 | 29 20 22 08 ac 82 c1 10 |tart end|) ".....|
|000013c0| 5c 6e ac 83 0b 47 12 0b | 08 48 c1 55 ab 82 c1 87 |\n...G..|.H.U....|
|000013d0| c1 1c 08 5c 6e 57 ab 9a | 0b 08 48 c5 57 ab 83 0c |...\nW..|..H.W...|
|000013e0| aa 89 0c c6 5f 0b 08 48 | c7 5a 5c 5c 14 08 54 89 |...._..H|.Z\\..T.|
|000013f0| 10 aa 62 0c 29 87 22 20 | 5b 73 74 61 72 74 20 30 |..b.)." |[start 0|
|00001400| 20 65 6e 64 20 73 74 72 | 69 6e 67 20 6e 20 3f 30 | end str|ing n ?0|
|00001410| 20 38 20 34 38 5d 20 34 | 20 28 23 24 20 2e 20 34 | 8 48] 4| (#$ . 4|
|00001420| 39 34 31 29 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |941)]).(|defalias|
|00001430| 20 27 74 61 72 2d 70 61 | 72 73 65 2d 6f 63 74 61 | 'tar-pa|rse-octa|
|00001440| 6c 2d 69 6e 74 65 67 65 | 72 2d 33 32 20 23 5b 28 |l-intege|r-32 #[(|
|00001450| 73 74 72 69 6e 67 20 26 | 6f 70 74 69 6f 6e 61 6c |string &|optional|
|00001460| 20 73 74 61 72 74 20 65 | 6e 64 29 20 22 08 ac 82 | start e|nd) "...|
|00001470| c1 10 5c 6e ac 83 0b 47 | 12 c4 0b 08 5c 6e c5 5a |..\n...G|....\n.Z|
|00001480| 23 c4 0b 5c 6e c5 5a 5c | 6e 23 1e 06 1e 07 c8 c9 |#..\n.Z\|n#......|
|00001490| 0e 07 ca 5c 22 c9 0e 06 | cb 5c 22 5c 22 16 07 cc |...\"...|.\"\"...|
|000014a0| 0e 06 cd 5c 22 16 06 0e | 07 0e 06 2a 42 87 22 20 |...\"...|...*B." |
|000014b0| 5b 73 74 61 72 74 20 30 | 20 65 6e 64 20 73 74 72 |[start 0| end str|
|000014c0| 69 6e 67 20 74 61 72 2d | 70 61 72 73 65 2d 6f 63 |ing tar-|parse-oc|
|000014d0| 74 61 6c 2d 69 6e 74 65 | 67 65 72 20 36 20 62 6f |tal-inte|ger 6 bo|
|000014e0| 74 20 74 6f 70 20 6c 6f | 67 69 6f 72 20 61 73 68 |t top lo|gior ash|
|000014f0| 20 32 20 2d 31 36 20 6c | 6f 67 61 6e 64 20 36 35 | 2 -16 l|ogand 65|
|00001500| 35 33 35 5d 20 35 5d 29 | 0a 28 64 65 66 61 6c 69 |535] 5])|.(defali|
|00001510| 61 73 20 27 74 61 72 2d | 70 61 72 73 65 2d 6f 63 |as 'tar-|parse-oc|
|00001520| 74 61 6c 2d 69 6e 74 65 | 67 65 72 2d 73 61 66 65 |tal-inte|ger-safe|
|00001530| 20 23 5b 28 73 74 72 69 | 6e 67 29 20 22 08 47 89 | #[(stri|ng) ".G.|
|00001540| 19 c2 55 ab 84 c3 c4 21 | 88 09 c2 1d 1e 06 0d 0e |..U....!|........|
|00001550| 06 57 ab 98 08 0d 48 c7 | 57 ac 87 08 0d 48 c8 56 |.W....H.|W....H.V|
|00001560| ab 84 c3 c9 21 88 0d 54 | 89 15 aa 63 2b ca 08 21 |....!..T|...c+..!|
|00001570| 87 22 20 5b 73 74 72 69 | 6e 67 20 4c 20 30 20 65 |." [stri|ng L 0 e|
|00001580| 72 72 6f 72 20 22 65 6d | 70 74 79 20 73 74 72 69 |rror "em|pty stri|
|00001590| 6e 67 22 20 69 20 2d 2d | 64 6f 74 69 6d 65 73 2d |ng" i --|dotimes-|
|000015a0| 74 65 6d 70 2d 2d 38 37 | 37 30 30 20 3f 30 20 3f |temp--87|700 ?0 ?|
|000015b0| 37 20 22 27 25 63 27 20 | 69 73 20 6e 6f 74 20 61 |7 "'%c' |is not a|
|000015c0| 6e 20 6f 63 74 61 6c 20 | 64 69 67 69 74 2e 22 20 |n octal |digit." |
|000015d0| 74 61 72 2d 70 61 72 73 | 65 2d 6f 63 74 61 6c 2d |tar-pars|e-octal-|
|000015e0| 69 6e 74 65 67 65 72 5d | 20 34 5d 29 0a 23 40 36 |integer]| 4]).#@6|
|000015f0| 34 20 43 6f 6d 70 75 74 | 65 73 20 61 6e 64 20 72 |4 Comput|es and r|
|00001600| 65 74 75 72 6e 73 20 61 | 20 74 61 72 2d 61 63 63 |eturns a| tar-acc|
|00001610| 65 70 74 61 62 6c 65 20 | 63 68 65 63 6b 73 75 6d |eptable |checksum|
|00001620| 20 66 6f 72 20 74 68 69 | 73 20 62 6c 6f 63 6b 2e | for thi|s block.|
|00001630| 1f 0a 28 64 65 66 61 6c | 69 61 73 20 27 63 68 65 |..(defal|ias 'che|
|00001640| 63 6b 73 75 6d 2d 74 61 | 72 2d 68 65 61 64 65 72 |cksum-ta|r-header|
|00001650| 2d 62 6c 6f 63 6b 20 23 | 5b 28 73 74 72 69 6e 67 |-block #|[(string|
|00001660| 29 20 22 08 89 19 c2 5c | 5c 1b c4 1d c4 1e 06 c4 |) "....\|\.......|
|00001670| 09 57 ab 90 0d 0e 07 0e | 06 48 5c 5c 15 0e 06 54 |.W......|.H\\...T|
|00001680| 89 16 06 aa 6c 0b 89 16 | 06 c8 57 ab 90 0d 0e 07 |....l...|..W.....|
|00001690| 0e 06 48 5c 5c 15 0e 06 | 54 89 16 06 aa 6c 0d c9 |..H\\...|T....l..|
|000016a0| 5c 5c 2c 87 22 20 5b 74 | 61 72 2d 63 68 6b 2d 6f |\\,." [t|ar-chk-o|
|000016b0| 66 66 73 65 74 20 63 68 | 6b 2d 66 69 65 6c 64 2d |ffset ch|k-field-|
|000016c0| 73 74 61 72 74 20 38 20 | 63 68 6b 2d 66 69 65 6c |start 8 |chk-fiel|
|000016d0| 64 2d 65 6e 64 20 30 20 | 73 75 6d 20 69 20 73 74 |d-end 0 |sum i st|
|000016e0| 72 69 6e 67 20 35 31 32 | 20 32 35 36 5d 20 34 20 |ring 512| 256] 4 |
|000016f0| 28 23 24 20 2e 20 35 36 | 31 38 29 5d 29 0a 23 40 |(#$ . 56|18)]).#@|
|00001700| 35 37 20 42 65 65 70 20 | 61 6e 64 20 70 72 69 6e |57 Beep |and prin|
|00001710| 74 20 61 20 77 61 72 6e | 69 6e 67 20 69 66 20 74 |t a warn|ing if t|
|00001720| 68 65 20 63 68 65 63 6b | 73 75 6d 20 64 6f 65 73 |he check|sum does|
|00001730| 6e 27 74 20 6d 61 74 63 | 68 2e 1f 0a 28 64 65 66 |n't matc|h...(def|
|00001740| 61 6c 69 61 73 20 27 63 | 68 65 63 6b 2d 74 61 72 |alias 'c|heck-tar|
|00001750| 2d 68 65 61 64 65 72 2d | 62 6c 6f 63 6b 2d 63 68 |-header-|block-ch|
|00001760| 65 63 6b 73 75 6d 20 23 | 5b 28 68 62 6c 6f 63 6b |ecksum #|[(hblock|
|00001770| 20 64 65 73 69 72 65 64 | 2d 63 68 65 63 6b 73 75 | desired|-checksu|
|00001780| 6d 20 66 69 6c 65 2d 6e | 61 6d 65 29 20 22 08 c1 |m file-n|ame) "..|
|00001790| 5c 6e 21 55 3f ad 88 c3 | 20 88 c4 c5 0e 06 5c 22 |\n!U?...| .....\"|
|000017a0| 87 22 20 5b 64 65 73 69 | 72 65 64 2d 63 68 65 63 |." [desi|red-chec|
|000017b0| 6b 73 75 6d 20 63 68 65 | 63 6b 73 75 6d 2d 74 61 |ksum che|cksum-ta|
|000017c0| 72 2d 68 65 61 64 65 72 | 2d 62 6c 6f 63 6b 20 68 |r-header|-block h|
|000017d0| 62 6c 6f 63 6b 20 62 65 | 65 70 20 6d 65 73 73 61 |block be|ep messa|
|000017e0| 67 65 20 22 49 6e 76 61 | 6c 69 64 20 63 68 65 63 |ge "Inva|lid chec|
|000017f0| 6b 73 75 6d 20 66 6f 72 | 20 66 69 6c 65 20 25 73 |ksum for| file %s|
|00001800| 21 22 20 66 69 6c 65 2d | 6e 61 6d 65 5d 20 33 20 |!" file-|name] 3 |
|00001810| 28 23 24 20 2e 20 35 38 | 39 31 29 5d 29 0a 23 40 |(#$ . 58|91)]).#@|
|00001820| 35 39 20 4d 6f 64 69 66 | 69 65 73 20 74 68 65 20 |59 Modif|ies the |
|00001830| 67 69 76 65 6e 20 73 74 | 72 69 6e 67 20 74 6f 20 |given st|ring to |
|00001840| 68 61 76 65 20 61 20 76 | 61 6c 69 64 20 63 68 65 |have a v|alid che|
|00001850| 63 6b 73 75 6d 20 66 69 | 65 6c 64 2e 1f 0a 28 64 |cksum fi|eld...(d|
|00001860| 65 66 61 6c 69 61 73 20 | 27 72 65 63 6f 6d 70 75 |efalias |'recompu|
|00001870| 74 65 2d 74 61 72 2d 68 | 65 61 64 65 72 2d 62 6c |te-tar-h|eader-bl|
|00001880| 6f 63 6b 2d 63 68 65 63 | 6b 73 75 6d 20 23 5b 28 |ock-chec|ksum #[(|
|00001890| 68 62 6c 6f 63 6b 29 20 | 22 c0 09 21 1a c3 c4 5c |hblock) |"..!...\|
|000018a0| 6e 5c 22 89 1d 47 1e 06 | 09 c7 c8 49 88 09 c9 ca |n\"..G..|...I....|
|000018b0| 49 88 0e 06 c8 1e 0b 1e | 0c 0e 0b 0e 0c 57 ab 98 |I.......|.....W..|
|000018c0| 09 cd 0e 0b 5a 0d 0e 06 | 0e 0b 5a ce 5a 48 49 88 |....Z...|..Z.ZHI.|
|000018d0| 0e 0b 54 89 16 0b aa 63 | 2d 09 87 22 20 5b 63 68 |..T....c|-.." [ch|
|000018e0| 65 63 6b 73 75 6d 2d 74 | 61 72 2d 68 65 61 64 65 |ecksum-t|ar-heade|
|000018f0| 72 2d 62 6c 6f 63 6b 20 | 68 62 6c 6f 63 6b 20 63 |r-block |hblock c|
|00001900| 68 6b 20 66 6f 72 6d 61 | 74 20 22 25 36 6f 22 20 |hk forma|t "%6o" |
|00001910| 63 68 6b 2d 73 74 72 69 | 6e 67 20 6c 20 31 35 34 |chk-stri|ng l 154|
|00001920| 20 30 20 31 35 35 20 33 | 32 20 69 20 2d 2d 64 6f | 0 155 3|2 i --do|
|00001930| 74 69 6d 65 73 2d 74 65 | 6d 70 2d 2d 38 37 37 30 |times-te|mp--8770|
|00001940| 31 20 31 35 33 20 31 5d | 20 37 20 28 23 24 20 2e |1 153 1]| 7 (#$ .|
|00001950| 20 36 31 37 39 29 5d 29 | 0a 23 40 37 32 20 57 72 | 6179)])|.#@72 Wr|
|00001960| 69 74 65 20 61 20 22 2d | 72 77 2d 2d 72 2d 2d 72 |ite a "-|rw--r--r|
|00001970| 2d 22 20 72 65 70 72 65 | 73 65 6e 74 69 6e 67 20 |-" repre|senting |
|00001980| 4d 4f 44 45 20 69 6e 74 | 6f 20 53 54 52 49 4e 47 |MODE int|o STRING|
|00001990| 20 62 65 67 69 6e 6e 69 | 6e 67 20 61 74 20 53 54 | beginni|ng at ST|
|000019a0| 41 52 54 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |ART...(d|efalias |
|000019b0| 27 74 61 72 2d 67 72 69 | 6e 64 2d 66 69 6c 65 2d |'tar-gri|nd-file-|
|000019c0| 6d 6f 64 65 20 23 5b 28 | 6d 6f 64 65 20 73 74 72 |mode #[(|mode str|
|000019d0| 69 6e 67 20 73 74 61 72 | 74 29 20 22 08 09 c2 0b |ing star|t) "....|
|000019e0| c4 5c 22 c5 55 ab 83 c6 | aa 81 c7 49 88 08 09 54 |.\".U...|...I...T|
|000019f0| c2 0b c8 5c 22 c5 55 ab | 83 c6 aa 81 c9 49 88 08 |...\".U.|.....I..|
|00001a00| 09 ca 5c 5c c2 0b cb 5c | 22 c5 55 ab 83 c6 aa 81 |..\\...\|".U.....|
|00001a10| cc 49 88 08 09 cd 5c 5c | c2 0b ce 5c 22 c5 55 ab |.I....\\|...\".U.|
|00001a20| 83 c6 aa 81 c7 49 88 08 | 09 cf 5c 5c c2 0b d0 5c |.....I..|..\\...\|
|00001a30| 22 c5 55 ab 83 c6 aa 81 | c9 49 88 08 09 d1 5c 5c |".U.....|.I....\\|
|00001a40| c2 0b d2 5c 22 c5 55 ab | 83 c6 aa 81 cc 49 88 08 |...\".U.|.....I..|
|00001a50| 09 d3 5c 5c c2 0b cf 5c | 22 c5 55 ab 83 c6 aa 81 |..\\...\|".U.....|
|00001a60| c7 49 88 08 09 d4 5c 5c | c2 0b ca 5c 22 c5 55 ab |.I....\\|...\".U.|
|00001a70| 83 c6 aa 81 c9 49 88 08 | 09 d2 5c 5c c2 0b d5 5c |.....I..|..\\...\|
|00001a80| 22 c5 55 ab 83 c6 aa 81 | cc 49 88 c2 0b d6 5c 22 |".U.....|.I....\"|
|00001a90| c5 55 ac 87 08 09 ca 5c | 5c d7 49 88 c2 0b d8 5c |.U.....\|\.I....\|
|00001aa0| 22 c5 55 ac 87 08 09 d1 | 5c 5c d7 49 88 08 87 22 |".U.....|\\.I..."|
|00001ab0| 20 5b 73 74 72 69 6e 67 | 20 73 74 61 72 74 20 6c | [string| start l|
|00001ac0| 6f 67 61 6e 64 20 6d 6f | 64 65 20 32 35 36 20 30 |ogand mo|de 256 0|
|00001ad0| 20 3f 5c 2d 20 3f 72 20 | 31 32 38 20 3f 77 20 32 | ?\- ?r |128 ?w 2|
|00001ae0| 20 36 34 20 3f 78 20 33 | 20 33 32 20 34 20 31 36 | 64 ?x 3| 32 4 16|
|00001af0| 20 35 20 38 20 36 20 37 | 20 31 20 31 30 32 34 20 | 5 8 6 7| 1 1024 |
|00001b00| 3f 73 20 32 30 34 38 5d | 20 35 20 28 23 24 20 2e |?s 2048]| 5 (#$ .|
|00001b10| 20 36 34 39 34 29 5d 29 | 0a 23 40 36 32 20 74 72 | 6494)])|.#@62 tr|
|00001b20| 75 65 20 69 66 20 74 68 | 69 73 20 65 6d 61 63 73 |ue if th|is emacs|
|00001b30| 20 68 61 73 20 62 65 65 | 6e 20 62 75 69 6c 74 20 | has bee|n built |
|00001b40| 77 69 74 68 20 74 69 6d | 65 2d 70 72 69 6e 74 69 |with tim|e-printi|
|00001b50| 6e 67 20 73 75 70 70 6f | 72 74 1f 0a 28 64 65 66 |ng suppo|rt..(def|
|00001b60| 63 6f 6e 73 74 20 74 61 | 72 2d 63 61 6e 2d 70 72 |const ta|r-can-pr|
|00001b70| 69 6e 74 2d 64 61 74 65 | 73 20 28 62 79 74 65 2d |int-date|s (byte-|
|00001b80| 63 6f 64 65 20 22 c0 c1 | 21 ae 83 c0 c2 21 87 22 |code "..|!....!."|
|00001b90| 20 5b 66 62 6f 75 6e 64 | 70 20 63 75 72 72 65 6e | [fbound|p curren|
|00001ba0| 74 2d 74 69 6d 65 20 63 | 75 72 72 65 6e 74 2d 74 |t-time c|urrent-t|
|00001bb0| 69 6d 65 2d 73 65 63 6f | 6e 64 73 5d 20 32 29 20 |ime-seco|nds] 2) |
|00001bc0| 28 23 24 20 2e 20 36 39 | 34 32 29 29 0a 23 40 35 |(#$ . 69|42)).#@5|
|00001bd0| 33 20 52 65 74 75 72 6e | 73 20 61 20 6c 69 6e 65 |3 Return|s a line|
|00001be0| 20 73 69 6d 69 6c 61 72 | 20 74 6f 20 74 68 65 20 | similar| to the |
|00001bf0| 6f 75 74 70 75 74 20 6f | 66 20 27 74 61 72 20 2d |output o|f 'tar -|
|00001c00| 76 74 66 27 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |vtf'...(|defalias|
|00001c10| 20 27 73 75 6d 6d 61 72 | 69 7a 65 2d 74 61 72 2d | 'summar|ize-tar-|
|00001c20| 68 65 61 64 65 72 2d 62 | 6c 6f 63 6b 20 23 5b 28 |header-b|lock #[(|
|00001c30| 74 61 72 2d 68 62 6c 6f | 63 6b 20 26 6f 70 74 69 |tar-hblo|ck &opti|
|00001c40| 6f 6e 61 6c 20 6d 6f 64 | 2d 70 29 20 22 08 c1 48 |onal mod|-p) "..H|
|00001c50| 08 c2 48 08 c3 48 08 c4 | 48 08 c5 48 08 c6 48 08 |..H..H..|H..H..H.|
|00001c60| c7 48 08 c8 48 08 c9 48 | 08 ca 48 08 cb 48 1e 0c |.H..H..H|..H..H..|
|00001c70| 1e 0d 1e 0e 1e 0f 1e 10 | 1e 11 1e 12 1e 13 1e 14 |........|........|
|00001c80| 1e 15 1e 16 c6 1e 17 cb | 1e 18 cb 1e 19 cb 1e 1a |........|........|
|00001c90| 0e 1b ab 83 dc aa 81 c3 | 1e 1d 0e 17 0e 18 5c 5c |........|......\\|
|00001ca0| 53 89 1e 1e 0e 19 5c 5c | 0e 1a 5c 5c 89 1e 1f 0e |S.....\\|..\\....|
|00001cb0| 1d 5c 5c 1e 20 e1 0e 20 | 0e 16 47 5c 5c 0e 0d ab |.\\. .. |..G\\...|
|00001cc0| 87 0e 0c 47 c8 5c 5c aa | 81 c1 5c 5c e2 5c 22 1e |...G.\\.|..\\.\".|
|00001cd0| 23 08 ca 48 1e 24 0e 23 | c1 0e 25 ab 83 e6 aa 81 |#..H.$.#|..%.....|
|00001ce0| e7 49 88 0e 23 c2 0e 24 | e8 61 ac 86 0e 24 c1 61 |.I..#..$|.a...$.a|
|00001cf0| ab 83 e9 aa d8 0e 24 c2 | 61 ab 83 ea aa cf 0e 24 |......$.|a......$|
|00001d00| c3 61 ab 83 eb aa c6 0e | 24 c4 61 ab 83 ec aa bd |.a......|$.a.....|
|00001d10| 0e 24 c7 61 ab 83 ed aa | b4 0e 24 c8 61 ab 83 ee |.$.a....|..$.a...|
|00001d20| aa ab 0e 24 c9 61 ab 83 | ef aa a2 0e 24 f0 61 ab |...$.a..|....$.a.|
|00001d30| 83 e6 aa 99 0e 24 f1 61 | ab 83 f2 aa 90 0e 24 f3 |.....$.a|......$.|
|00001d40| 61 ab 83 f4 aa 87 0e 24 | f5 61 ad 81 f6 49 88 f7 |a......$|.a...I..|
|00001d50| 0e 15 0e 23 c3 23 88 0e | 12 47 c1 55 ab 86 f8 0e |...#.#..|.G.U....|
|00001d60| 14 21 aa 82 0e 12 16 14 | 0e 11 47 c1 55 ab 86 f8 |.!......|..G.U...|
|00001d70| 0e 13 21 aa 82 0e 11 16 | 13 f8 0e 10 21 16 10 0e |..!.....|....!...|
|00001d80| 18 53 0e 14 47 5e c1 1e | 39 1e 3a 0e 39 0e 3a 57 |.S..G^..|9.:.9.:W|
|00001d90| ab 9b 0e 23 0e 1e 0e 39 | 5a 0e 14 89 47 0e 39 5a |...#...9|Z...G.9Z|
|00001da0| c2 5a 48 49 88 0e 39 54 | 89 16 39 aa 60 2a 0e 23 |.ZHI..9T|..9.`*.#|
|00001db0| 0e 1e 54 fb 49 88 0e 19 | 53 0e 13 47 5e c1 1e 39 |..T.I...|S..G^..9|
|00001dc0| 1e 3c 0e 39 0e 3c 57 ab | 98 0e 23 0e 1e c3 5c 5c |.<.9.<W.|..#...\\|
|00001dd0| 0e 39 5c 5c 0e 13 0e 39 | 48 49 88 0e 39 54 89 16 |.9\\...9|HI..9T..|
|00001de0| 39 aa 63 2a 0e 1a 0e 10 | 47 5e c1 1e 39 1e 3d 0e |9.c*....|G^..9.=.|
|00001df0| 39 0e 3d 57 ab 9b 0e 23 | 0e 1f 0e 39 5a 0e 10 89 |9.=W...#|...9Z...|
|00001e00| 47 0e 39 5a c2 5a 48 49 | 88 0e 39 54 89 16 39 aa |G.9Z.ZHI|..9T..9.|
|00001e10| 60 2a 0e 1b ab db fe 20 | ff e8 4f 1e 40 fe 0e 0f |`*..... |..O.@...|
|00001e20| 21 89 1e 41 ff e8 4f 1e | 42 0e 40 0e 42 6b ab 89 |!..A..O.|B.@.Bk..|
|00001e30| 0e 41 c7 81 43 00 4f aa | 8b 0e 41 c7 c6 4f 81 44 |.A..C.O.|..A..O.D|
|00001e40| 00 0e 42 51 1e 45 81 46 | 00 c1 1e 39 1e 47 0e 39 |..BQ.E.F|...9.G.9|
|00001e50| 0e 47 57 ab 9a 0e 23 0e | 20 81 48 00 0e 39 5a 5a |.GW...#.| .H..9ZZ|
|00001e60| 0e 45 0e 39 48 49 88 0e | 39 54 89 16 39 aa 61 2e |.E.9HI..|9T..9.a.|
|00001e70| 06 0e 16 47 c1 1e 39 1e | 49 0e 39 0e 49 57 ab 96 |...G..9.|I.9.IW..|
|00001e80| 0e 23 0e 20 0e 39 5c 5c | 0e 16 0e 39 48 49 88 0e |.#. .9\\|...9HI..|
|00001e90| 39 54 89 16 39 aa 65 2a | 0e 0d c2 61 ac 86 0e 0d |9T..9.e*|...a....|
|00001ea0| c3 61 ab e2 c4 c1 1e 39 | 1e 4a 0e 39 0e 4a 57 ab |.a.....9|.J.9.JW.|
|00001eb0| a8 0e 23 0e 20 0e 16 47 | 5c 5c 0e 39 5c 5c c2 5c |..#. ..G|\\.9\\.\|
|00001ec0| 5c 0e 0d c2 55 ab 85 81 | 4b 00 aa 83 81 4c 00 0e |\...U...|K....L..|
|00001ed0| 39 48 49 88 0e 39 54 89 | 16 39 aa 53 2a 0e 0c 47 |9HI..9T.|.9.S*..G|
|00001ee0| c1 1e 39 1e 4d 0e 39 0e | 4d 57 ab 9c 0e 23 0e 20 |..9.M.9.|MW...#. |
|00001ef0| 0e 16 47 5c 5c 0e 39 5c | 5c c8 5c 5c 0e 0c 0e 39 |..G\\.9\|\.\\...9|
|00001f00| 48 49 88 0e 39 54 89 16 | 39 aa 5f 2a 0e 23 2e 15 |HI..9T..|9._*.#..|
|00001f10| 87 22 20 5b 74 61 72 2d | 68 62 6c 6f 63 6b 20 30 |." [tar-|hblock 0|
|00001f20| 20 31 20 32 20 33 20 31 | 30 20 31 31 20 34 20 35 | 1 2 3 1|0 11 4 5|
|00001f30| 20 36 20 37 20 38 20 6c | 69 6e 6b 2d 6e 61 6d 65 | 6 7 8 l|ink-name|
|00001f40| 20 6c 69 6e 6b 2d 70 20 | 63 6b 20 74 69 6d 65 20 | link-p |ck time |
|00001f50| 73 69 7a 65 20 67 6e 61 | 6d 65 20 75 6e 61 6d 65 |size gna|me uname|
|00001f60| 20 67 69 64 20 75 69 64 | 20 6d 6f 64 65 20 6e 61 | gid uid| mode na|
|00001f70| 6d 65 20 6c 65 66 74 20 | 6e 61 6d 65 77 20 67 72 |me left |namew gr|
|00001f80| 6f 75 70 77 20 73 69 7a | 65 77 20 74 61 72 2d 63 |oupw siz|ew tar-c|
|00001f90| 61 6e 2d 70 72 69 6e 74 | 2d 64 61 74 65 73 20 31 |an-print|-dates 1|
|00001fa0| 35 20 64 61 74 65 77 20 | 73 6c 61 73 68 20 6c 61 |5 datew |slash la|
|00001fb0| 73 74 64 69 67 69 74 20 | 6e 61 6d 65 73 74 61 72 |stdigit |namestar|
|00001fc0| 74 20 6d 61 6b 65 2d 73 | 74 72 69 6e 67 20 33 32 |t make-s|tring 32|
|00001fd0| 20 73 74 72 69 6e 67 20 | 74 79 70 65 20 6d 6f 64 | string |type mod|
|00001fe0| 2d 70 20 3f 5c 2a 20 3f | 5c 20 20 6e 69 6c 20 3f |-p ?\* ?|\  nil ?|
|00001ff0| 5c 2d 20 3f 6c 20 3f 73 | 20 3f 63 20 3f 62 20 3f |\- ?l ?s| ?c ?b ?|
|00002000| 64 20 3f 70 20 32 30 20 | 32 39 20 3f 4d 20 33 35 |d ?p 20 |29 ?M 35|
|00002010| 20 3f 53 20 33 38 20 3f | 56 20 74 61 72 2d 67 72 | ?S 38 ?|V tar-gr|
|00002020| 69 6e 64 2d 66 69 6c 65 | 2d 6d 6f 64 65 20 69 6e |ind-file|-mode in|
|00002030| 74 2d 74 6f 2d 73 74 72 | 69 6e 67 20 69 20 2d 2d |t-to-str|ing i --|
|00002040| 64 6f 74 69 6d 65 73 2d | 74 65 6d 70 2d 2d 38 37 |dotimes-|temp--87|
|00002050| 37 30 32 20 3f 5c 2f 20 | 2d 2d 64 6f 74 69 6d 65 |702 ?\/ |--dotime|
|00002060| 73 2d 74 65 6d 70 2d 2d | 38 37 37 30 33 20 2d 2d |s-temp--|87703 --|
|00002070| 64 6f 74 69 6d 65 73 2d | 74 65 6d 70 2d 2d 38 37 |dotimes-|temp--87|
|00002080| 37 30 34 20 63 75 72 72 | 65 6e 74 2d 74 69 6d 65 |704 curr|ent-time|
|00002090| 2d 73 74 72 69 6e 67 20 | 2d 34 20 79 65 61 72 20 |-string |-4 year |
|000020a0| 66 69 6c 65 20 66 69 6c | 65 2d 79 65 61 72 20 31 |file fil|e-year 1|
|000020b0| 36 20 22 20 22 20 73 74 | 72 20 31 32 20 2d 2d 64 |6 " " st|r 12 --d|
|000020c0| 6f 74 69 6d 65 73 2d 74 | 65 6d 70 2d 2d 38 37 37 |otimes-t|emp--877|
|000020d0| 30 35 20 31 33 20 2d 2d | 64 6f 74 69 6d 65 73 2d |05 13 --|dotimes-|
|000020e0| 74 65 6d 70 2d 2d 38 37 | 37 30 36 20 2d 2d 64 6f |temp--87|706 --do|
|000020f0| 74 69 6d 65 73 2d 74 65 | 6d 70 2d 2d 38 37 37 30 |times-te|mp--8770|
|00002100| 37 20 22 3d 3d 3e 22 20 | 22 2d 2d 3e 22 20 2d 2d |7 "==>" |"-->" --|
|00002110| 64 6f 74 69 6d 65 73 2d | 74 65 6d 70 2d 2d 38 37 |dotimes-|temp--87|
|00002120| 37 30 38 5d 20 31 33 20 | 28 23 24 20 2e 20 37 31 |708] 13 |(#$ . 71|
|00002130| 32 32 29 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |22)]).(b|yte-code|
|00002140| 20 22 c0 09 42 11 c2 09 | 42 11 c0 87 22 20 5b 74 | "..B...|B..." [t|
|00002150| 61 72 2d 70 61 72 73 65 | 2d 69 6e 66 6f 20 63 75 |ar-parse|-info cu|
|00002160| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 20 |rrent-lo|ad-list |
|00002170| 74 61 72 2d 68 65 61 64 | 65 72 2d 6f 66 66 73 65 |tar-head|er-offse|
|00002180| 74 5d 20 32 29 0a 23 40 | 32 30 35 20 50 61 72 73 |t] 2).#@|205 Pars|
|00002190| 65 20 74 68 65 20 63 6f | 6e 74 65 6e 74 73 20 6f |e the co|ntents o|
|000021a0| 66 20 74 68 65 20 74 61 | 72 20 66 69 6c 65 20 69 |f the ta|r file i|
|000021b0| 6e 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |n the cu|rrent bu|
|000021c0| 66 66 65 72 2c 20 61 6e | 64 20 70 6c 61 63 65 20 |ffer, an|d place |
|000021d0| 61 0a 64 69 72 65 64 2d | 6c 69 6b 65 20 6c 69 73 |a.dired-|like lis|
|000021e0| 74 69 6e 67 20 6f 6e 20 | 74 68 65 20 66 72 6f 6e |ting on |the fron|
|000021f0| 74 3b 20 74 68 65 6e 20 | 6e 61 72 72 6f 77 20 74 |t; then |narrow t|
|00002200| 6f 20 69 74 2c 20 73 6f | 20 74 68 61 74 20 6f 6e |o it, so| that on|
|00002210| 6c 79 20 74 68 61 74 20 | 6c 69 73 74 69 6e 67 0a |ly that |listing.|
|00002220| 69 73 20 76 69 73 69 62 | 6c 65 20 28 61 6e 64 20 |is visib|le (and |
|00002230| 74 68 65 20 72 65 61 6c | 20 64 61 74 61 20 6f 66 |the real| data of|
|00002240| 20 74 68 65 20 62 75 66 | 66 65 72 20 69 73 20 68 | the buf|fer is h|
|00002250| 69 64 64 65 6e 29 2e 1f | 0a 28 64 65 66 61 6c 69 |idden)..|.(defali|
|00002260| 61 73 20 27 74 61 72 2d | 73 75 6d 6d 61 72 69 7a |as 'tar-|summariz|
|00002270| 65 2d 62 75 66 66 65 72 | 20 23 5b 6e 69 6c 20 22 |e-buffer| #[nil "|
|00002280| c0 c1 21 88 c2 1b c4 1d | c4 c6 20 c7 5a 5d 1e 08 |..!.....|.. .Z]..|
|00002290| c4 0e 08 c9 a5 5d 1e 5c | 6e c2 1e 0b 0e 0b cc 61 |.....].\|n......a|
|000022a0| ac f8 0d cd 5c 5c 64 56 | ab 84 ce cf 21 88 0d 89 |....\\dV|....!...|
|000022b0| cd 5c 5c 7b 1e 10 d1 0e | 10 21 16 0b 0d cd 5c 5c |.\\{....|.!....\\|
|000022c0| 15 c0 d2 0d 0e 5c 6e a5 | 5c 22 88 0e 0b cc 61 ac |.....\n.|\"....a.|
|000022d0| cb 0e 0b ac 84 ce d3 21 | 88 0e 0b d4 48 d5 61 ab |.......!|....H.a.|
|000022e0| 84 0d cd 5c 5c 15 0e 0b | d6 48 89 1e 17 d8 57 ab |...\\...|.H....W.|
|000022f0| 8a ce d9 0e 0b d8 48 0e | 17 23 88 0d 0e 0b 42 0b |......H.|.#....B.|
|00002300| 42 13 0e 0b d4 48 ac 94 | 0e 17 d8 56 ab 8e 0d da |B....H..|...V....|
|00002310| 89 0e 17 53 db 5c 22 dc | 5c 22 5c 5c cd 5c 5c 15 |...S.\".|\"\\.\\.|
|00002320| 29 29 aa 02 dd de 21 88 | 0b 9f 16 1e 2d c0 df 21 |))....!.|....-..!|
|00002330| 88 8a 65 62 88 c2 1e 20 | 0e 1e c2 1e 21 89 1e 5c |..eb... |....!..\|
|00002340| 22 ab 96 0e 5c 22 40 16 | 21 e3 0e 21 41 21 e4 b1 |"...\"@.|!..!A!..|
|00002350| 02 88 0e 5c 22 41 89 16 | 5c 22 ac 6a 2a dd e5 21 |...\"A..|\".j*..!|
|00002360| 88 60 16 25 c4 0e 25 7d | 88 e6 c2 21 88 2a c0 e7 |.`.%..%}|...!.*..|
|00002370| 21 87 22 20 5b 6d 65 73 | 73 61 67 65 20 22 70 61 |!." [mes|sage "pa|
|00002380| 72 73 69 6e 67 20 74 61 | 72 20 66 69 6c 65 2e 2e |rsing ta|r file..|
|00002390| 2e 22 20 6e 69 6c 20 72 | 65 73 75 6c 74 20 31 20 |." nil r|esult 1 |
|000023a0| 70 6f 73 20 62 75 66 66 | 65 72 2d 73 69 7a 65 20 |pos buff|er-size |
|000023b0| 31 30 32 34 20 62 73 20 | 31 30 30 20 62 73 31 30 |1024 bs |100 bs10|
|000023c0| 30 20 74 6f 6b 65 6e 73 | 20 65 6d 70 74 79 2d 74 |0 tokens| empty-t|
|000023d0| 61 72 2d 62 6c 6f 63 6b | 20 35 31 32 20 65 72 72 |ar-block| 512 err|
|000023e0| 6f 72 20 22 74 72 75 6e | 63 61 74 65 64 20 74 61 |or "trun|cated ta|
|000023f0| 72 20 66 69 6c 65 22 20 | 68 62 6c 6f 63 6b 20 74 |r file" |hblock t|
|00002400| 6f 6b 65 6e 69 7a 65 2d | 74 61 72 2d 68 65 61 64 |okenize-|tar-head|
|00002410| 65 72 2d 62 6c 6f 63 6b | 20 22 70 61 72 73 69 6e |er-block| "parsin|
|00002420| 67 20 74 61 72 20 66 69 | 6c 65 2e 2e 2e 25 73 25 |g tar fi|le...%s%|
|00002430| 25 22 20 22 70 72 65 6d | 61 74 75 72 65 20 45 4f |%" "prem|ature EO|
|00002440| 46 20 70 61 72 73 69 6e | 67 20 74 61 72 20 66 69 |F parsin|g tar fi|
|00002450| 6c 65 2e 22 20 37 20 32 | 30 20 34 20 73 69 7a 65 |le." 7 2|0 4 size|
|00002460| 20 30 20 22 25 73 20 68 | 61 73 20 73 69 7a 65 20 | 0 "%s h|as size |
|00002470| 25 73 20 2d 20 63 6f 72 | 72 75 70 74 65 64 2e 22 |%s - cor|rupted."|
|00002480| 20 61 73 68 20 2d 39 20 | 39 20 6d 61 6b 65 2d 6c | ash -9 |9 make-l|
|00002490| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 74 61 |ocal-var|iable ta|
|000024a0| 72 2d 70 61 72 73 65 2d | 69 6e 66 6f 20 22 70 61 |r-parse-|info "pa|
|000024b0| 72 73 69 6e 67 20 74 61 | 72 20 66 69 6c 65 2e 2e |rsing ta|r file..|
|000024c0| 2e 66 6f 72 6d 61 74 74 | 69 6e 67 2e 2e 2e 22 20 |.formatt|ing..." |
|000024d0| 62 75 66 66 65 72 2d 72 | 65 61 64 2d 6f 6e 6c 79 |buffer-r|ead-only|
|000024e0| 20 74 61 72 2d 64 65 73 | 63 20 2d 2d 64 6f 6c 69 | tar-des|c --doli|
|000024f0| 73 74 2d 74 65 6d 70 2d | 2d 38 37 37 30 39 20 73 |st-temp-|-87709 s|
|00002500| 75 6d 6d 61 72 69 7a 65 | 2d 74 61 72 2d 68 65 61 |ummarize|-tar-hea|
|00002510| 64 65 72 2d 62 6c 6f 63 | 6b 20 22 5c 6e 22 20 74 |der-bloc|k "\n" t|
|00002520| 61 72 2d 68 65 61 64 65 | 72 2d 6f 66 66 73 65 74 |ar-heade|r-offset|
|00002530| 20 73 65 74 2d 62 75 66 | 66 65 72 2d 6d 6f 64 69 | set-buf|fer-modi|
|00002540| 66 69 65 64 2d 70 20 22 | 70 61 72 73 69 6e 67 20 |fied-p "|parsing |
|00002550| 74 61 72 20 66 69 6c 65 | 2e 2e 2e 64 6f 6e 65 2e |tar file|...done.|
|00002560| 22 5d 20 36 20 28 23 24 | 20 2e 20 38 35 38 38 29 |"] 6 (#$| . 8588)|
|00002570| 5d 29 0a 23 40 33 38 20 | 2a 4c 6f 63 61 6c 20 6b |]).#@38 |*Local k|
|00002580| 65 79 6d 61 70 20 66 6f | 72 20 74 61 72 2d 6d 6f |eymap fo|r tar-mo|
|00002590| 64 65 20 6c 69 73 74 69 | 6e 67 73 2e 1f 0a 28 64 |de listi|ngs...(d|
|000025a0| 65 66 76 61 72 20 74 61 | 72 2d 6d 6f 64 65 2d 6d |efvar ta|r-mode-m|
|000025b0| 61 70 20 6e 69 6c 20 28 | 23 24 20 2e 20 2d 39 35 |ap nil (|#$ . -95|
|000025c0| 39 32 29 29 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |92)).(by|te-code |
|000025d0| 22 08 84 ab 00 c1 20 10 | c2 08 21 88 c3 08 c4 c5 |"..... .|..!.....|
|000025e0| 23 88 c3 08 c6 c7 23 88 | c3 08 c8 c9 23 88 c3 08 |#.....#.|....#...|
|000025f0| ca c9 23 88 c3 08 cb cc | 23 88 c3 08 cd cc 23 88 |..#.....|#.....#.|
|00002600| c3 08 ce cf 23 88 c3 08 | d0 d1 23 88 c3 08 d2 c5 |....#...|..#.....|
|00002610| 23 88 c3 08 d3 c5 23 88 | c3 08 d4 d5 23 88 c3 08 |#.....#.|....#...|
|00002620| d6 d7 23 88 c3 08 d8 d7 | 23 88 c3 08 d9 da 23 88 |..#.....|#.....#.|
|00002630| c3 08 db dc 23 88 c3 08 | dd de 23 88 c3 08 df e0 |....#...|..#.....|
|00002640| 23 88 c3 08 e1 e2 23 88 | c3 08 e3 e2 23 88 c3 08 |#.....#.|....#...|
|00002650| e4 d5 23 88 c3 08 e5 e6 | 23 88 c3 08 e7 e8 23 88 |..#.....|#.....#.|
|00002660| c3 08 e9 ea 23 88 eb ec | 21 ab 91 eb ed 21 ac 8c |....#...|!....!..|
|00002670| c3 08 ee ef 23 88 c3 08 | f0 f1 23 88 f2 f3 f4 5c |....#...|..#....\|
|00002680| 22 88 f5 f6 21 ac 83 f7 | 16 36 f6 0e 38 42 16 38 |"...!...|.6..8B.8|
|00002690| c1 87 22 20 5b 74 61 72 | 2d 6d 6f 64 65 2d 6d 61 |.." [tar|-mode-ma|
|000026a0| 70 20 6d 61 6b 65 2d 6b | 65 79 6d 61 70 20 73 75 |p make-k|eymap su|
|000026b0| 70 70 72 65 73 73 2d 6b | 65 79 6d 61 70 20 64 65 |ppress-k|eymap de|
|000026c0| 66 69 6e 65 2d 6b 65 79 | 20 22 20 22 20 74 61 72 |fine-key| " " tar|
|000026d0| 2d 6e 65 78 74 2d 6c 69 | 6e 65 20 22 63 22 20 74 |-next-li|ne "c" t|
|000026e0| 61 72 2d 63 6f 70 79 20 | 22 64 22 20 74 61 72 2d |ar-copy |"d" tar-|
|000026f0| 66 6c 61 67 2d 64 65 6c | 65 74 65 64 20 22 04 22 |flag-del|eted "."|
|00002700| 20 22 65 22 20 74 61 72 | 2d 65 78 74 72 61 63 74 | "e" tar|-extract|
|00002710| 20 22 66 22 20 22 67 22 | 20 72 65 76 65 72 74 2d | "f" "g"| revert-|
|00002720| 62 75 66 66 65 72 20 22 | 68 22 20 64 65 73 63 72 |buffer "|h" descr|
|00002730| 69 62 65 2d 6d 6f 64 65 | 20 22 6e 22 20 22 0e 22 |ibe-mode| "n" "."|
|00002740| 20 22 6f 22 20 74 61 72 | 2d 65 78 74 72 61 63 74 | "o" tar|-extract|
|00002750| 2d 6f 74 68 65 72 2d 77 | 69 6e 64 6f 77 20 22 70 |-other-w|indow "p|
|00002760| 22 20 74 61 72 2d 70 72 | 65 76 69 6f 75 73 2d 6c |" tar-pr|evious-l|
|00002770| 69 6e 65 20 22 10 22 20 | 22 72 22 20 74 61 72 2d |ine "." |"r" tar-|
|00002780| 72 65 6e 61 6d 65 2d 65 | 6e 74 72 79 20 22 75 22 |rename-e|ntry "u"|
|00002790| 20 74 61 72 2d 75 6e 66 | 6c 61 67 20 22 76 22 20 | tar-unf|lag "v" |
|000027a0| 74 61 72 2d 76 69 65 77 | 20 22 78 22 20 74 61 72 |tar-view| "x" tar|
|000027b0| 2d 65 78 70 75 6e 67 65 | 20 62 61 63 6b 73 70 61 |-expunge| backspa|
|000027c0| 63 65 20 74 61 72 2d 75 | 6e 66 6c 61 67 2d 62 61 |ce tar-u|nflag-ba|
|000027d0| 63 6b 77 61 72 64 73 20 | 64 65 6c 65 74 65 20 22 |ckwards |delete "|
|000027e0| 45 22 20 22 4d 22 20 74 | 61 72 2d 63 68 6d 6f 64 |E" "M" t|ar-chmod|
|000027f0| 2d 65 6e 74 72 79 20 22 | 47 22 20 74 61 72 2d 63 |-entry "|G" tar-c|
|00002800| 68 67 72 70 2d 65 6e 74 | 72 79 20 22 4f 22 20 74 |hgrp-ent|ry "O" t|
|00002810| 61 72 2d 63 68 6f 77 6e | 2d 65 6e 74 72 79 20 66 |ar-chown|-entry f|
|00002820| 65 61 74 75 72 65 70 20 | 78 65 6d 61 63 73 20 69 |eaturep |xemacs i|
|00002830| 6e 66 6f 64 6f 63 6b 20 | 62 75 74 74 6f 6e 32 20 |nfodock |button2 |
|00002840| 74 61 72 2d 74 72 61 63 | 6b 2d 6d 6f 75 73 65 2d |tar-trac|k-mouse-|
|00002850| 61 6e 64 2d 65 78 74 72 | 61 63 74 2d 66 69 6c 65 |and-extr|act-file|
|00002860| 20 62 75 74 74 6f 6e 33 | 20 74 61 72 2d 70 6f 70 | button3| tar-pop|
|00002870| 75 70 2d 6d 65 6e 75 20 | 61 75 74 6f 6c 6f 61 64 |up-menu |autoload|
|00002880| 20 64 69 72 65 64 2d 6d | 61 72 6b 2d 72 65 67 69 | dired-m|ark-regi|
|00002890| 6f 6e 20 22 64 69 72 65 | 64 2d 78 65 6d 61 63 73 |on "dire|d-xemacs|
|000028a0| 2d 6d 65 6e 75 22 20 62 | 6f 75 6e 64 70 20 74 61 |-menu" b|oundp ta|
|000028b0| 72 2d 6d 65 6e 75 20 28 | 22 54 61 72 20 4d 6f 64 |r-menu (|"Tar Mod|
|000028c0| 65 20 43 6f 6d 6d 61 6e | 64 73 22 20 5b 22 43 6f |e Comman|ds" ["Co|
|000028d0| 70 79 20 53 75 62 66 69 | 6c 65 20 74 6f 20 44 69 |py Subfi|le to Di|
|000028e0| 73 6b 22 20 74 61 72 2d | 63 6f 70 79 20 74 5d 20 |sk" tar-|copy t] |
|000028f0| 5b 22 52 65 6e 61 6d 65 | 20 53 75 62 66 69 6c 65 |["Rename| Subfile|
|00002900| 22 20 74 61 72 2d 72 65 | 6e 61 6d 65 2d 65 6e 74 |" tar-re|name-ent|
|00002910| 72 79 20 74 5d 20 22 2d | 2d 2d 2d 22 20 5b 22 44 |ry t] "-|---" ["D|
|00002920| 65 6c 65 74 65 20 46 6c | 61 67 65 64 20 53 75 62 |elete Fl|aged Sub|
|00002930| 66 69 6c 65 73 22 20 74 | 61 72 2d 65 78 70 75 6e |files" t|ar-expun|
|00002940| 67 65 20 74 5d 20 5b 22 | 46 6c 61 67 20 53 75 62 |ge t] ["|Flag Sub|
|00002950| 66 69 6c 65 20 66 6f 72 | 20 44 65 6c 65 74 69 6f |file for| Deletio|
|00002960| 6e 22 20 74 61 72 2d 66 | 6c 61 67 2d 64 65 6c 65 |n" tar-f|lag-dele|
|00002970| 74 65 64 20 74 5d 20 5b | 22 46 6c 61 67 20 53 75 |ted t] [|"Flag Su|
|00002980| 62 66 69 6c 65 73 20 69 | 6e 20 52 65 67 69 6f 6e |bfiles i|n Region|
|00002990| 20 66 6f 72 20 44 65 6c | 65 74 69 6f 6e 22 20 28 | for Del|etion" (|
|000029a0| 64 69 72 65 64 2d 6d 61 | 72 6b 2d 72 65 67 69 6f |dired-ma|rk-regio|
|000029b0| 6e 20 27 28 74 61 72 2d | 66 6c 61 67 2d 64 65 6c |n '(tar-|flag-del|
|000029c0| 65 74 65 64 20 31 29 29 | 20 28 6d 61 72 6b 29 5d |eted 1))| (mark)]|
|000029d0| 20 5b 22 55 6e 66 6c 61 | 67 20 53 75 62 66 69 6c | ["Unfla|g Subfil|
|000029e0| 65 22 20 74 61 72 2d 75 | 6e 66 6c 61 67 20 74 5d |e" tar-u|nflag t]|
|000029f0| 20 5b 22 55 6e 66 6c 61 | 67 20 53 75 62 66 69 6c | ["Unfla|g Subfil|
|00002a00| 65 73 20 69 6e 20 52 65 | 67 69 6f 6e 22 20 28 64 |es in Re|gion" (d|
|00002a10| 69 72 65 64 2d 6d 61 72 | 6b 2d 72 65 67 69 6f 6e |ired-mar|k-region|
|00002a20| 20 27 28 74 61 72 2d 66 | 6c 61 67 2d 64 65 6c 65 | '(tar-f|lag-dele|
|00002a30| 74 65 64 20 31 20 74 29 | 29 20 28 6d 61 72 6b 29 |ted 1 t)|) (mark)|
|00002a40| 5d 20 22 2d 2d 2d 2d 22 | 20 5b 22 43 68 61 6e 67 |] "----"| ["Chang|
|00002a50| 65 20 50 65 72 6d 69 73 | 73 69 6f 6e 73 20 6f 66 |e Permis|sions of|
|00002a60| 20 53 75 62 66 69 6c 65 | 2e 2e 2e 22 20 74 61 72 | Subfile|..." tar|
|00002a70| 2d 63 68 6d 6f 64 2d 65 | 6e 74 72 79 20 74 5d 20 |-chmod-e|ntry t] |
|00002a80| 5b 22 43 68 61 6e 67 65 | 20 47 72 6f 75 70 20 6f |["Change| Group o|
|00002a90| 66 20 53 75 62 66 69 6c | 65 2e 2e 2e 22 20 74 61 |f Subfil|e..." ta|
|00002aa0| 72 2d 63 68 67 72 70 2d | 65 6e 74 72 79 20 74 5d |r-chgrp-|entry t]|
|00002ab0| 20 5b 22 43 68 61 6e 67 | 65 20 4f 77 6e 65 72 20 | ["Chang|e Owner |
|00002ac0| 6f 66 20 53 75 62 66 69 | 6c 65 2e 2e 2e 22 20 74 |of Subfi|le..." t|
|00002ad0| 61 72 2d 63 68 6f 77 6e | 2d 65 6e 74 72 79 20 74 |ar-chown|-entry t|
|00002ae0| 5d 20 22 2d 2d 2d 2d 22 | 20 5b 22 45 64 69 74 20 |] "----"| ["Edit |
|00002af0| 53 75 62 66 69 6c 65 20 | 4f 74 68 65 72 20 57 69 |Subfile |Other Wi|
|00002b00| 6e 64 6f 77 22 20 74 61 | 72 2d 65 78 74 72 61 63 |ndow" ta|r-extrac|
|00002b10| 74 2d 6f 74 68 65 72 2d | 77 69 6e 64 6f 77 20 74 |t-other-|window t|
|00002b20| 5d 20 5b 22 45 64 69 74 | 20 53 75 62 66 69 6c 65 |] ["Edit| Subfile|
|00002b30| 22 20 74 61 72 2d 65 78 | 74 72 61 63 74 20 74 5d |" tar-ex|tract t]|
|00002b40| 20 5b 22 56 69 65 77 20 | 53 75 62 66 69 6c 65 22 | ["View |Subfile"|
|00002b50| 20 74 61 72 2d 76 69 65 | 77 20 74 5d 29 20 63 75 | tar-vie|w t]) cu|
|00002b60| 72 72 65 6e 74 2d 6c 6f | 61 64 2d 6c 69 73 74 5d |rrent-lo|ad-list]|
|00002b70| 20 34 29 0a 23 40 35 39 | 20 56 69 73 69 74 20 74 | 4).#@59| Visit t|
|00002b80| 68 65 20 74 61 72 2d 66 | 69 6c 65 2d 65 6e 74 72 |he tar-f|ile-entr|
|00002b90| 79 20 75 70 6f 6e 20 77 | 68 69 63 68 20 74 68 65 |y upon w|hich the|
|00002ba0| 20 6d 6f 75 73 65 20 69 | 73 20 63 6c 69 63 6b 65 | mouse i|s clicke|
|00002bb0| 64 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |d...(def|alias 't|
|00002bc0| 61 72 2d 74 72 61 63 6b | 2d 6d 6f 75 73 65 2d 61 |ar-track|-mouse-a|
|00002bd0| 6e 64 2d 65 78 74 72 61 | 63 74 2d 66 69 6c 65 20 |nd-extra|ct-file |
|00002be0| 23 5b 28 65 76 65 6e 74 | 29 20 22 c0 09 21 88 c2 |#[(event|) "..!..|
|00002bf0| c3 21 88 c4 1d 8a c6 20 | 88 70 15 29 c7 0d 21 29 |.!..... |.p.)..!)|
|00002c00| 87 22 20 5b 6d 6f 75 73 | 65 2d 73 65 74 2d 70 6f |." [mous|e-set-po|
|00002c10| 69 6e 74 20 65 76 65 6e | 74 20 74 61 72 2d 6e 65 |int even|t tar-ne|
|00002c20| 78 74 2d 6c 69 6e 65 20 | 30 20 6e 69 6c 20 62 75 |xt-line |0 nil bu|
|00002c30| 66 66 65 72 20 74 61 72 | 2d 65 78 74 72 61 63 74 |ffer tar|-extract|
|00002c40| 20 73 77 69 74 63 68 2d | 74 6f 2d 62 75 66 66 65 | switch-|to-buffe|
|00002c50| 72 5d 20 32 20 28 23 24 | 20 2e 20 31 31 31 32 39 |r] 2 (#$| . 11129|
|00002c60| 29 20 22 65 22 5d 29 0a | 23 40 32 38 20 44 69 73 |) "e"]).|#@28 Dis|
|00002c70| 70 6c 61 79 20 74 68 65 | 20 74 61 72 2d 6d 6f 64 |play the| tar-mod|
|00002c80| 65 20 6d 65 6e 75 2e 1f | 0a 28 64 65 66 61 6c 69 |e menu..|.(defali|
|00002c90| 61 73 20 27 74 61 72 2d | 70 6f 70 75 70 2d 6d 65 |as 'tar-|popup-me|
|00002ca0| 6e 75 20 23 5b 28 65 76 | 65 6e 74 29 20 22 c0 09 |nu #[(ev|ent) "..|
|00002cb0| 21 88 c2 c3 21 88 c4 0d | 21 87 22 20 5b 6d 6f 75 |!...!...|!." [mou|
|00002cc0| 73 65 2d 73 65 74 2d 70 | 6f 69 6e 74 20 65 76 65 |se-set-p|oint eve|
|00002cd0| 6e 74 20 74 61 72 2d 6e | 65 78 74 2d 6c 69 6e 65 |nt tar-n|ext-line|
|00002ce0| 20 30 20 70 6f 70 75 70 | 2d 6d 65 6e 75 20 74 61 | 0 popup|-menu ta|
|00002cf0| 72 2d 6d 65 6e 75 5d 20 | 32 20 28 23 24 20 2e 20 |r-menu] |2 (#$ . |
|00002d00| 31 31 33 37 33 29 20 22 | 40 65 22 5d 29 0a 28 62 |11373) "|@e"]).(b|
|00002d10| 79 74 65 2d 63 6f 64 65 | 20 22 c0 c1 c2 c3 23 88 |yte-code| "....#.|
|00002d20| c0 c4 c2 c3 23 87 22 20 | 5b 70 75 74 20 74 61 72 |....#." |[put tar|
|00002d30| 2d 6d 6f 64 65 20 6d 6f | 64 65 2d 63 6c 61 73 73 |-mode mo|de-class|
|00002d40| 20 73 70 65 63 69 61 6c | 20 74 61 72 2d 73 75 62 | special| tar-sub|
|00002d50| 66 69 6c 65 2d 6d 6f 64 | 65 5d 20 34 29 0a 23 40 |file-mod|e] 4).#@|
|00002d60| 36 37 35 20 4d 61 6a 6f | 72 20 6d 6f 64 65 20 66 |675 Majo|r mode f|
|00002d70| 6f 72 20 76 69 65 77 69 | 6e 67 20 61 20 74 61 72 |or viewi|ng a tar|
|00002d80| 20 66 69 6c 65 20 61 73 | 20 61 20 64 69 72 65 64 | file as| a dired|
|00002d90| 2d 6c 69 6b 65 20 6c 69 | 73 74 69 6e 67 20 6f 66 |-like li|sting of|
|00002da0| 20 69 74 73 20 63 6f 6e | 74 65 6e 74 73 2e 0a 59 | its con|tents..Y|
|00002db0| 6f 75 20 63 61 6e 20 6d | 6f 76 65 20 61 72 6f 75 |ou can m|ove arou|
|00002dc0| 6e 64 20 75 73 69 6e 67 | 20 74 68 65 20 75 73 75 |nd using| the usu|
|00002dd0| 61 6c 20 63 75 72 73 6f | 72 20 6d 6f 74 69 6f 6e |al curso|r motion|
|00002de0| 20 63 6f 6d 6d 61 6e 64 | 73 2e 20 0a 4c 65 74 74 | command|s. .Lett|
|00002df0| 65 72 73 20 6e 6f 20 6c | 6f 6e 67 65 72 20 69 6e |ers no l|onger in|
|00002e00| 73 65 72 74 20 74 68 65 | 6d 73 65 6c 76 65 73 2e |sert the|mselves.|
|00002e10| 0a 54 79 70 65 20 27 65 | 27 20 74 6f 20 70 75 6c |.Type 'e|' to pul|
|00002e20| 6c 20 61 20 66 69 6c 65 | 20 6f 75 74 20 6f 66 20 |l a file| out of |
|00002e30| 74 68 65 20 74 61 72 20 | 66 69 6c 65 20 61 6e 64 |the tar |file and|
|00002e40| 20 69 6e 74 6f 20 69 74 | 73 20 6f 77 6e 20 62 75 | into it|s own bu|
|00002e50| 66 66 65 72 2e 0a 54 79 | 70 65 20 27 63 27 20 74 |ffer..Ty|pe 'c' t|
|00002e60| 6f 20 63 6f 70 79 20 61 | 6e 20 65 6e 74 72 79 20 |o copy a|n entry |
|00002e70| 66 72 6f 6d 20 74 68 65 | 20 74 61 72 20 66 69 6c |from the| tar fil|
|00002e80| 65 20 69 6e 74 6f 20 61 | 6e 6f 74 68 65 72 20 66 |e into a|nother f|
|00002e90| 69 6c 65 20 6f 6e 20 64 | 69 73 6b 2e 0a 0a 49 66 |ile on d|isk...If|
|00002ea0| 20 79 6f 75 20 65 64 69 | 74 20 61 20 73 75 62 2d | you edi|t a sub-|
|00002eb0| 66 69 6c 65 20 6f 66 20 | 74 68 69 73 20 61 72 63 |file of |this arc|
|00002ec0| 68 69 76 65 20 28 61 73 | 20 77 69 74 68 20 74 68 |hive (as| with th|
|00002ed0| 65 20 27 65 27 20 63 6f | 6d 6d 61 6e 64 29 20 61 |e 'e' co|mmand) a|
|00002ee0| 6e 64 20 0a 73 61 76 65 | 20 69 74 20 77 69 74 68 |nd .save| it with|
|00002ef0| 20 43 6f 6e 74 72 6f 6c | 2d 58 20 43 6f 6e 74 72 | Control|-X Contr|
|00002f00| 6f 6c 2d 53 2c 20 74 68 | 65 20 63 6f 6e 74 65 6e |ol-S, th|e conten|
|00002f10| 74 73 20 6f 66 20 74 68 | 61 74 20 62 75 66 66 65 |ts of th|at buffe|
|00002f20| 72 20 77 69 6c 6c 20 62 | 65 20 0a 73 61 76 65 64 |r will b|e .saved|
|00002f30| 20 62 61 63 6b 20 69 6e | 74 6f 20 74 68 65 20 74 | back in|to the t|
|00002f40| 61 72 2d 66 69 6c 65 20 | 62 75 66 66 65 72 3b 20 |ar-file |buffer; |
|00002f50| 69 6e 20 74 68 69 73 20 | 77 61 79 20 79 6f 75 20 |in this |way you |
|00002f60| 63 61 6e 20 65 64 69 74 | 20 61 20 66 69 6c 65 20 |can edit| a file |
|00002f70| 0a 69 6e 73 69 64 65 20 | 6f 66 20 61 20 74 61 72 |.inside |of a tar|
|00002f80| 20 61 72 63 68 69 76 65 | 20 77 69 74 68 6f 75 74 | archive| without|
|00002f90| 20 65 78 74 72 61 63 74 | 69 6e 67 20 69 74 20 61 | extract|ing it a|
|00002fa0| 6e 64 20 72 65 2d 61 72 | 63 68 69 76 69 6e 67 20 |nd re-ar|chiving |
|00002fb0| 69 74 2e 0a 0a 53 65 65 | 20 61 6c 73 6f 3a 20 76 |it...See| also: v|
|00002fc0| 61 72 69 61 62 6c 65 73 | 20 74 61 72 2d 75 70 64 |ariables| tar-upd|
|00002fd0| 61 74 65 2d 64 61 74 65 | 73 74 61 6d 70 20 61 6e |ate-date|stamp an|
|00002fe0| 64 20 74 61 72 2d 61 6e | 61 6c 2d 62 6c 6f 63 6b |d tar-an|al-block|
|00002ff0| 73 69 7a 65 2e 0a 5c 7b | 74 61 72 2d 6d 6f 64 65 |size..\{|tar-mode|
|00003000| 2d 6d 61 70 7d 1f 0a 28 | 64 65 66 61 6c 69 61 73 |-map}..(|defalias|
|00003010| 20 27 74 61 72 2d 6d 6f | 64 65 20 23 5b 6e 69 6c | 'tar-mo|de #[nil|
|00003020| 20 22 c0 c1 21 88 c0 c2 | 21 88 c0 c3 21 88 c4 13 | "..!...|!...!...|
|00003030| c0 c5 21 88 c6 15 c7 16 | 08 c9 16 5c 6e cb 0e 0c |..!.....|...\n...|
|00003040| 21 88 cd ce 21 88 7e 88 | cf c1 21 ab 89 09 ab 86 |!...!.~.|..!.....|
|00003050| d0 09 7d 88 aa 83 d1 20 | 88 d2 d3 0e 14 5c 22 ab |..}.... |.....\".|
|00003060| a6 d5 d6 21 88 d7 16 18 | cf d9 21 ab 9a 0e 19 ab |...!....|..!.....|
|00003070| 96 da c9 0e 19 5c 22 ac | 8f db dc 0e 19 21 21 88 |.....\".|.....!!.|
|00003080| dd c4 c9 0e 1e 41 23 88 | df e0 21 87 22 20 5b 6d |.....A#.|..!." [m|
|00003090| 61 6b 65 2d 6c 6f 63 61 | 6c 2d 76 61 72 69 61 62 |ake-loca|l-variab|
|000030a0| 6c 65 20 74 61 72 2d 68 | 65 61 64 65 72 2d 6f 66 |le tar-h|eader-of|
|000030b0| 66 73 65 74 20 74 61 72 | 2d 70 61 72 73 65 2d 69 |fset tar|-parse-i|
|000030c0| 6e 66 6f 20 72 65 71 75 | 69 72 65 2d 66 69 6e 61 |nfo requ|ire-fina|
|000030d0| 6c 2d 6e 65 77 6c 69 6e | 65 20 6e 69 6c 20 72 65 |l-newlin|e nil re|
|000030e0| 76 65 72 74 2d 62 75 66 | 66 65 72 2d 66 75 6e 63 |vert-buf|fer-func|
|000030f0| 74 69 6f 6e 20 74 61 72 | 2d 6d 6f 64 65 2d 72 65 |tion tar|-mode-re|
|00003100| 76 65 72 74 20 74 61 72 | 2d 6d 6f 64 65 20 6d 61 |vert tar|-mode ma|
|00003110| 6a 6f 72 2d 6d 6f 64 65 | 20 22 54 61 72 22 20 6d |jor-mode| "Tar" m|
|00003120| 6f 64 65 2d 6e 61 6d 65 | 20 75 73 65 2d 6c 6f 63 |ode-name| use-loc|
|00003130| 61 6c 2d 6d 61 70 20 74 | 61 72 2d 6d 6f 64 65 2d |al-map t|ar-mode-|
|00003140| 6d 61 70 20 61 75 74 6f | 2d 73 61 76 65 2d 6d 6f |map auto|-save-mo|
|00003150| 64 65 20 30 20 62 6f 75 | 6e 64 70 20 31 20 74 61 |de 0 bou|ndp 1 ta|
|00003160| 72 2d 73 75 6d 6d 61 72 | 69 7a 65 2d 62 75 66 66 |r-summar|ize-buff|
|00003170| 65 72 20 73 74 72 69 6e | 67 2d 6d 61 74 63 68 20 |er strin|g-match |
|00003180| 22 58 45 6d 61 63 73 22 | 20 65 6d 61 63 73 2d 76 |"XEmacs"| emacs-v|
|00003190| 65 72 73 69 6f 6e 20 72 | 65 71 75 69 72 65 20 6d |ersion r|equire m|
|000031a0| 6f 64 65 2d 6d 6f 74 69 | 6f 6e 20 6d 6f 64 65 2d |ode-moti|on mode-|
|000031b0| 6d 6f 74 69 6f 6e 2d 68 | 69 67 68 6c 69 67 68 74 |motion-h|ighlight|
|000031c0| 2d 6c 69 6e 65 20 6d 6f | 64 65 2d 6d 6f 74 69 6f |-line mo|de-motio|
|000031d0| 6e 2d 68 6f 6f 6b 20 63 | 75 72 72 65 6e 74 2d 6d |n-hook c|urrent-m|
|000031e0| 65 6e 75 62 61 72 20 61 | 73 73 6f 63 20 73 65 74 |enubar a|ssoc set|
|000031f0| 2d 62 75 66 66 65 72 2d | 6d 65 6e 75 62 61 72 20 |-buffer-|menubar |
|00003200| 63 6f 70 79 2d 73 65 71 | 75 65 6e 63 65 20 61 64 |copy-seq|uence ad|
|00003210| 64 2d 6d 65 6e 75 20 74 | 61 72 2d 6d 65 6e 75 20 |d-menu t|ar-menu |
|00003220| 72 75 6e 2d 68 6f 6f 6b | 73 20 74 61 72 2d 6d 6f |run-hook|s tar-mo|
|00003230| 64 65 2d 68 6f 6f 6b 5d | 20 34 20 28 23 24 20 2e |de-hook]| 4 (#$ .|
|00003240| 20 31 31 36 32 30 29 5d | 29 0a 28 62 79 74 65 2d | 11620)]|).(byte-|
|00003250| 63 6f 64 65 20 22 c0 c1 | 21 ac 82 c2 11 c1 0b 42 |code "..|!......B|
|00003260| 13 c4 0b 42 13 c5 0b 42 | 13 c6 0b 42 13 c7 0b 42 |...B...B|...B...B|
|00003270| 13 c2 87 22 20 5b 62 6f | 75 6e 64 70 20 74 61 72 |..." [bo|undp tar|
|00003280| 2d 73 75 62 66 69 6c 65 | 2d 6d 6f 64 65 20 6e 69 |-subfile|-mode ni|
|00003290| 6c 20 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c |l curren|t-load-l|
|000032a0| 69 73 74 20 73 75 70 65 | 72 69 6f 72 2d 74 61 72 |ist supe|rior-tar|
|000032b0| 2d 62 75 66 66 65 72 20 | 73 75 70 65 72 69 6f 72 |-buffer |superior|
|000032c0| 2d 74 61 72 2d 64 65 73 | 63 72 69 70 74 6f 72 20 |-tar-des|criptor |
|000032d0| 74 61 72 2d 73 75 62 66 | 69 6c 65 2d 62 75 66 66 |tar-subf|ile-buff|
|000032e0| 65 72 2d 69 64 20 73 75 | 62 66 69 6c 65 2d 6f 72 |er-id su|bfile-or|
|000032f0| 69 67 2d 6d 6c 62 69 64 | 5d 20 32 29 0a 23 40 32 |ig-mlbid|] 2).#@2|
|00003300| 31 31 20 4d 69 6e 6f 72 | 20 6d 6f 64 65 20 66 6f |11 Minor| mode fo|
|00003310| 72 20 65 64 69 74 69 6e | 67 20 61 6e 20 65 6c 65 |r editin|g an ele|
|00003320| 6d 65 6e 74 20 6f 66 20 | 61 20 74 61 72 2d 66 69 |ment of |a tar-fi|
|00003330| 6c 65 2e 0a 54 68 69 73 | 20 6d 6f 64 65 20 72 65 |le..This| mode re|
|00003340| 64 65 66 69 6e 65 73 20 | 5e 58 5e 53 20 74 6f 20 |defines |^X^S to |
|00003350| 73 61 76 65 20 74 68 65 | 20 63 75 72 72 65 6e 74 |save the| current|
|00003360| 20 62 75 66 66 65 72 20 | 62 61 63 6b 20 69 6e 74 | buffer |back int|
|00003370| 6f 20 69 74 73 20 0a 61 | 73 73 6f 63 69 61 74 65 |o its .a|ssociate|
|00003380| 64 20 74 61 72 2d 66 69 | 6c 65 20 62 75 66 66 65 |d tar-fi|le buffe|
|00003390| 72 2e 20 20 59 6f 75 20 | 6d 75 73 74 20 73 61 76 |r.  You |must sav|
|000033a0| 65 20 74 68 61 74 20 62 | 75 66 66 65 72 20 74 6f |e that b|uffer to|
|000033b0| 20 61 63 74 75 61 6c 6c | 79 0a 73 61 76 65 20 79 | actuall|y.save y|
|000033c0| 6f 75 72 20 63 68 61 6e | 67 65 73 20 74 6f 20 64 |our chan|ges to d|
|000033d0| 69 73 6b 2e 1f 0a 28 64 | 65 66 61 6c 69 61 73 20 |isk...(d|efalias |
|000033e0| 27 74 61 72 2d 73 75 62 | 66 69 6c 65 2d 6d 6f 64 |'tar-sub|file-mod|
|000033f0| 65 20 23 5b 28 70 29 20 | 22 c0 c1 21 ab 83 09 ac |e #[(p) |"..!....|
|00003400| 84 c2 c3 21 88 c4 0d b7 | ac 86 c6 0d c7 43 5c 22 |...!....|.....C\"|
|00003410| 15 c8 c4 21 88 0e 09 ac | 84 0c 3f aa 86 ca 0e 09 |...!....|..?.....|
|00003420| 21 cb 56 89 14 ab 9f cc | 20 89 1e 0d ab 87 ce cf |!.V.....| .......|
|00003430| 0e 0d 21 21 88 29 d0 d1 | d2 5c 22 88 d3 d4 21 88 |..!!.)..|.\"...!.|
|00003440| d4 16 15 d6 d7 21 87 d8 | d1 21 88 0e 19 ab 87 c8 |.....!..|.!......|
|00003450| da 21 0e 19 4c 88 d4 11 | d4 16 1b d4 89 16 19 87 |.!..L...|........|
|00003460| 22 20 5b 62 6f 75 6e 64 | 70 20 73 75 70 65 72 69 |" [bound|p superi|
|00003470| 6f 72 2d 74 61 72 2d 62 | 75 66 66 65 72 20 65 72 |or-tar-b|uffer er|
|00003480| 72 6f 72 20 22 54 68 69 | 73 20 62 75 66 66 65 72 |ror "Thi|s buffer|
|00003490| 20 69 73 20 6e 6f 74 20 | 61 6e 20 65 6c 65 6d 65 | is not |an eleme|
|000034a0| 6e 74 20 6f 66 20 61 20 | 74 61 72 20 66 69 6c 65 |nt of a |tar file|
|000034b0| 2e 22 20 74 61 72 2d 73 | 75 62 66 69 6c 65 2d 6d |." tar-s|ubfile-m|
|000034c0| 6f 64 65 20 6d 69 6e 6f | 72 2d 6d 6f 64 65 2d 61 |ode mino|r-mode-a|
|000034d0| 6c 69 73 74 20 61 70 70 | 65 6e 64 20 28 74 61 72 |list app|end (tar|
|000034e0| 2d 73 75 62 66 69 6c 65 | 2d 6d 6f 64 65 20 22 20 |-subfile|-mode " |
|000034f0| 54 61 72 46 69 6c 65 22 | 29 20 6d 61 6b 65 2d 6c |TarFile"|) make-l|
|00003500| 6f 63 61 6c 2d 76 61 72 | 69 61 62 6c 65 20 70 20 |ocal-var|iable p |
|00003510| 70 72 65 66 69 78 2d 6e | 75 6d 65 72 69 63 2d 76 |prefix-n|umeric-v|
|00003520| 61 6c 75 65 20 30 20 63 | 75 72 72 65 6e 74 2d 6c |alue 0 c|urrent-l|
|00003530| 6f 63 61 6c 2d 6d 61 70 | 20 6d 20 75 73 65 2d 6c |ocal-map| m use-l|
|00003540| 6f 63 61 6c 2d 6d 61 70 | 20 63 6f 70 79 2d 6b 65 |ocal-map| copy-ke|
|00003550| 79 6d 61 70 20 6c 6f 63 | 61 6c 2d 73 65 74 2d 6b |ymap loc|al-set-k|
|00003560| 65 79 20 22 18 13 22 20 | 74 61 72 2d 73 75 62 66 |ey ".." |tar-subf|
|00003570| 69 6c 65 2d 73 61 76 65 | 2d 62 75 66 66 65 72 20 |ile-save|-buffer |
|00003580| 61 75 74 6f 2d 73 61 76 | 65 2d 6d 6f 64 65 20 6e |auto-sav|e-mode n|
|00003590| 69 6c 20 62 75 66 66 65 | 72 2d 61 75 74 6f 2d 73 |il buffe|r-auto-s|
|000035a0| 61 76 65 2d 66 69 6c 65 | 2d 6e 61 6d 65 20 72 75 |ave-file|-name ru|
|000035b0| 6e 2d 68 6f 6f 6b 73 20 | 74 61 72 2d 73 75 62 66 |n-hooks |tar-subf|
|000035c0| 69 6c 65 2d 6d 6f 64 65 | 2d 68 6f 6f 6b 20 6c 6f |ile-mode|-hook lo|
|000035d0| 63 61 6c 2d 75 6e 73 65 | 74 2d 6b 65 79 20 73 75 |cal-unse|t-key su|
|000035e0| 62 66 69 6c 65 2d 6f 72 | 69 67 2d 6d 6c 62 69 64 |bfile-or|ig-mlbid|
|000035f0| 20 6d 6f 64 65 2d 6c 69 | 6e 65 2d 62 75 66 66 65 | mode-li|ne-buffe|
|00003600| 72 2d 69 64 65 6e 74 69 | 66 69 63 61 74 69 6f 6e |r-identi|fication|
|00003610| 20 73 75 70 65 72 69 6f | 72 2d 74 61 72 2d 64 65 | superio|r-tar-de|
|00003620| 73 63 72 69 70 74 6f 72 | 5d 20 34 20 28 23 24 20 |scriptor|] 4 (#$ |
|00003630| 2e 20 31 33 30 35 39 29 | 20 22 50 22 5d 29 0a 28 |. 13059)| "P"]).(|
|00003640| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 73 75 |defalias| 'tar-su|
|00003650| 62 66 69 6c 65 2d 61 66 | 74 65 72 2d 77 72 69 74 |bfile-af|ter-writ|
|00003660| 65 2d 66 69 6c 65 2d 68 | 6f 6f 6b 20 23 5b 6e 69 |e-file-h|ook #[ni|
|00003670| 6c 20 22 08 ad 86 09 ad | 83 c1 c2 21 87 22 20 5b |l ".....|...!." [|
|00003680| 62 75 66 66 65 72 2d 66 | 69 6c 65 2d 6e 61 6d 65 |buffer-f|ile-name|
|00003690| 20 74 61 72 2d 73 75 62 | 66 69 6c 65 2d 6d 6f 64 | tar-sub|file-mod|
|000036a0| 65 20 2d 31 5d 20 32 5d | 29 0a 23 40 38 35 20 52 |e -1] 2]|).#@85 R|
|000036b0| 65 76 65 72 74 20 74 68 | 69 73 20 62 75 66 66 65 |evert th|is buffe|
|000036c0| 72 20 61 6e 64 20 74 75 | 72 6e 20 6f 6e 20 74 61 |r and tu|rn on ta|
|000036d0| 72 20 6d 6f 64 65 20 61 | 67 61 69 6e 2c 20 74 6f |r mode a|gain, to|
|000036e0| 20 72 65 2d 63 6f 6d 70 | 75 74 65 20 74 68 65 0a | re-comp|ute the.|
|000036f0| 64 69 72 65 63 74 6f 72 | 79 20 6c 69 73 74 69 6e |director|y listin|
|00003700| 67 2e 1f 0a 28 64 65 66 | 61 6c 69 61 73 20 27 74 |g...(def|alias 't|
|00003710| 61 72 2d 6d 6f 64 65 2d | 72 65 76 65 72 74 20 23 |ar-mode-|revert #|
|00003720| 5b 28 26 6f 70 74 69 6f | 6e 61 6c 20 6e 6f 2d 61 |[(&optio|nal no-a|
|00003730| 75 74 6f 73 61 76 65 20 | 6e 6f 2d 63 6f 6e 66 69 |utosave |no-confi|
|00003740| 72 6d 29 20 22 c0 11 c0 | 1a c3 c4 0d 5c 22 88 7e |rm) "...|....\".~|
|00003750| 88 29 c6 20 87 22 20 5b | 6e 69 6c 20 74 61 72 2d |.). ." [|nil tar-|
|00003760| 68 65 61 64 65 72 2d 6f | 66 66 73 65 74 20 72 65 |header-o|ffset re|
|00003770| 76 65 72 74 2d 62 75 66 | 66 65 72 2d 66 75 6e 63 |vert-buf|fer-func|
|00003780| 74 69 6f 6e 20 72 65 76 | 65 72 74 2d 62 75 66 66 |tion rev|ert-buff|
|00003790| 65 72 20 74 20 6e 6f 2d | 63 6f 6e 66 69 72 6d 20 |er t no-|confirm |
|000037a0| 74 61 72 2d 6d 6f 64 65 | 5d 20 33 20 28 23 24 20 |tar-mode|] 3 (#$ |
|000037b0| 2e 20 31 33 39 39 39 29 | 5d 29 0a 28 64 65 66 61 |. 13999)|]).(defa|
|000037c0| 6c 69 61 73 20 27 74 61 | 72 2d 6e 65 78 74 2d 6c |lias 'ta|r-next-l|
|000037d0| 69 6e 65 20 23 5b 28 70 | 29 20 22 08 79 88 6d 3f |ine #[(p|) ".y.m?|
|000037e0| ad 88 09 ab 83 c2 aa 81 | c3 75 87 22 20 5b 70 20 |........|.u." [p |
|000037f0| 74 61 72 2d 63 61 6e 2d | 70 72 69 6e 74 2d 64 61 |tar-can-|print-da|
|00003800| 74 65 73 20 34 38 20 33 | 36 5d 20 31 20 6e 69 6c |tes 48 3|6] 1 nil|
|00003810| 20 22 70 22 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | "p"]).(|defalias|
|00003820| 20 27 74 61 72 2d 70 72 | 65 76 69 6f 75 73 2d 6c | 'tar-pr|evious-l|
|00003830| 69 6e 65 20 23 5b 28 70 | 29 20 22 c0 09 5b 21 87 |ine #[(p|) "..[!.|
|00003840| 22 20 5b 74 61 72 2d 6e | 65 78 74 2d 6c 69 6e 65 |" [tar-n|ext-line|
|00003850| 20 70 5d 20 32 20 6e 69 | 6c 20 22 70 22 5d 29 0a | p] 2 ni|l "p"]).|
|00003860| 23 40 37 30 20 52 65 74 | 75 72 6e 73 20 74 68 65 |#@70 Ret|urns the|
|00003870| 20 74 61 72 2d 64 65 73 | 63 72 69 70 74 6f 72 20 | tar-des|criptor |
|00003880| 6f 66 20 74 68 65 20 63 | 75 72 72 65 6e 74 20 6c |of the c|urrent l|
|00003890| 69 6e 65 2c 20 6f 72 20 | 73 69 67 6e 61 6c 73 20 |ine, or |signals |
|000038a0| 61 6e 20 65 72 72 6f 72 | 2e 1f 0a 28 64 65 66 61 |an error|...(defa|
|000038b0| 6c 69 61 73 20 27 74 61 | 72 2d 63 75 72 72 65 6e |lias 'ta|r-curren|
|000038c0| 74 2d 64 65 73 63 72 69 | 70 74 6f 72 20 23 5b 28 |t-descri|ptor #[(|
|000038d0| 26 6f 70 74 69 6f 6e 61 | 6c 20 6e 6f 65 72 72 6f |&optiona|l noerro|
|000038e0| 72 29 20 22 c0 65 8a c1 | 79 88 60 29 5c 22 5c 6e |r) ".e..|y.`)\"\n|
|000038f0| 38 ae 87 0b 3f ad 83 c4 | c5 21 87 22 20 5b 63 6f |8...?...|.!." [co|
|00003900| 75 6e 74 2d 6c 69 6e 65 | 73 20 30 20 74 61 72 2d |unt-line|s 0 tar-|
|00003910| 70 61 72 73 65 2d 69 6e | 66 6f 20 6e 6f 65 72 72 |parse-in|fo noerr|
|00003920| 6f 72 20 65 72 72 6f 72 | 20 22 54 68 69 73 20 6c |or error| "This l|
|00003930| 69 6e 65 20 64 6f 65 73 | 20 6e 6f 74 20 64 65 73 |ine does| not des|
|00003940| 63 72 69 62 65 20 61 20 | 74 61 72 2d 66 69 6c 65 |cribe a |tar-file|
|00003950| 20 65 6e 74 72 79 2e 22 | 5d 20 33 20 28 23 24 20 | entry."|] 3 (#$ |
|00003960| 2e 20 31 34 34 33 37 29 | 5d 29 0a 23 40 37 31 20 |. 14437)|]).#@71 |
|00003970| 2a 49 6e 20 74 61 72 2d | 6d 6f 64 65 2c 20 65 78 |*In tar-|mode, ex|
|00003980| 74 72 61 63 74 20 74 68 | 69 73 20 65 6e 74 72 79 |tract th|is entry|
|00003990| 20 6f 66 20 74 68 65 20 | 74 61 72 20 66 69 6c 65 | of the |tar file|
|000039a0| 20 69 6e 74 6f 20 69 74 | 73 20 6f 77 6e 20 62 75 | into it|s own bu|
|000039b0| 66 66 65 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ffer...(|defalias|
|000039c0| 20 27 74 61 72 2d 65 78 | 74 72 61 63 74 20 23 5b | 'tar-ex|tract #[|
|000039d0| 28 26 6f 70 74 69 6f 6e | 61 6c 20 6f 74 68 65 72 |(&option|al other|
|000039e0| 2d 77 69 6e 64 6f 77 2d | 70 29 20 22 08 c1 61 1a |-window-|p) "..a.|
|000039f0| c3 20 89 1c 41 89 1d c6 | 48 1e 07 0d c8 48 1e 09 |. ..A...|H....H..|
|00003a00| 0d ca 48 1e 0b 0c 40 0e | 0c 5c 5c cd 5c 5c 89 1e |..H...@.|.\\.\\..|
|00003a10| 0e 0e 09 5c 5c 1e 0f 0e | 0b ab b2 d0 d1 0e 0b d2 |...\\...|........|
|00003a20| 61 ab 83 d3 aa a5 0e 0b | d4 61 ab 83 d5 aa 9c 0e |a.......|.a......|
|00003a30| 0b d6 61 ab 83 d7 aa 93 | 0e 0b d8 61 ab 83 d9 aa |..a.....|...a....|
|00003a40| 8a 0e 0b da 61 ab 83 db | aa 81 dc 5c 22 88 0e 09 |....a...|...\"...|
|00003a50| c6 55 ab 84 d0 dd 21 88 | 70 1e 1e df 0e 07 21 1e |.U....!.|p.....!.|
|00003a60| 20 e1 df e2 20 21 e3 51 | 1e 24 0e 25 ae 81 5c 6e | ... !.Q|.$.%..\n|
|00003a70| 1e 26 e7 1e 28 e9 20 1e | 2a e7 1e 2b 0e 2a ab aa |.&..(. .|*..+.*..|
|00003a80| 0e 28 ac a6 0e 2a 40 71 | 88 e2 0e 2a 40 21 ac 92 |.(...*@q|...*@!..|
|00003a90| ec ed 21 ab 8d 0e 2d 0c | 61 ab 87 0e 2a 40 16 28 |..!...-.|a...*@.(|
|00003aa0| aa 5a 0e 2a 41 89 16 2a | ac 56 0e 1e 71 88 0e 28 |.Z.*A..*|.V..q..(|
|00003ab0| 84 91 01 ee 0e 20 21 16 | 28 ef 16 2b f0 8e 7e 88 |..... !.|(..+..~.|
|00003ac0| 8a 0e 28 71 88 f1 0e 1e | 0e 0e 0e 0f 23 88 c6 62 |..(q....|....#..b|
|00003ad0| 88 e7 1e 32 f3 0e 07 21 | 88 f4 ef 21 88 f5 f6 21 |...2...!|...!...!|
|00003ae0| 88 f3 e7 21 88 29 f7 f8 | 21 88 f7 ed 21 88 f7 f9 |...!.)..|!...!...|
|00003af0| 21 88 f7 fa 21 88 f7 fb | 21 88 0e 1e 16 38 0c 16 |!...!...|!....8..|
|00003b00| 2d 0e 24 16 3a 0e 39 16 | 3b 0e 39 3b ab 85 0e 39 |-.$.:.9.|;.9;...9|
|00003b10| 43 16 39 0e 39 40 e7 1e | 3c 89 1e 3d 3b ab ba fe |C.9.9@..|<..=;...|
|00003b20| ff 0e 3d 5c 22 ab b3 0e | 3d c6 81 40 00 94 53 4f |..=\"...|=..@..SO|
|00003b30| 0e 3d 81 40 00 95 54 e7 | 4f 50 81 41 00 0e 3d 81 |.=.@..T.|OP.A..=.|
|00003b40| 40 00 94 81 40 00 95 4f | 21 40 81 42 00 0e 3a 50 |@...@..O|!@.B..:P|
|00003b50| 44 0e 39 41 42 42 16 39 | aa 90 81 43 00 81 44 00 |D.9ABB.9|...C..D.|
|00003b60| 81 42 00 0e 3a 50 44 44 | 16 39 2a 81 45 00 81 40 |.B..:PDD|.9*.E..@|
|00003b70| 00 21 88 0e 26 16 25 81 | 46 00 e7 21 88 29 0e 1e |.!..&.%.|F..!.)..|
|00003b80| 71 88 29 5c 6e ab 96 81 | 47 00 0e 28 21 88 8a 0e |q.)\n...|G..(!...|
|00003b90| 28 71 88 f7 81 48 00 21 | ef 4c 29 aa 91 08 ab 88 |(q...H.!|.L).....|
|00003ba0| 81 49 00 0e 28 21 aa 86 | 81 4a 00 0e 28 21 2e 0f |.I..(!..|.J..(!..|
|00003bb0| 87 22 20 5b 6f 74 68 65 | 72 2d 77 69 6e 64 6f 77 |." [othe|r-window|
|00003bc0| 2d 70 20 76 69 65 77 20 | 76 69 65 77 2d 70 20 74 |-p view |view-p t|
|00003bd0| 61 72 2d 63 75 72 72 65 | 6e 74 2d 64 65 73 63 72 |ar-curre|nt-descr|
|00003be0| 69 70 74 6f 72 20 64 65 | 73 63 72 69 70 74 6f 72 |iptor de|scriptor|
|00003bf0| 20 74 6f 6b 65 6e 73 20 | 30 20 6e 61 6d 65 20 34 | tokens |0 name 4|
|00003c00| 20 73 69 7a 65 20 37 20 | 6c 69 6e 6b 2d 70 20 74 | size 7 |link-p t|
|00003c10| 61 72 2d 68 65 61 64 65 | 72 2d 6f 66 66 73 65 74 |ar-heade|r-offset|
|00003c20| 20 2d 31 20 73 74 61 72 | 74 20 65 6e 64 20 65 72 | -1 star|t end er|
|00003c30| 72 6f 72 20 22 54 68 69 | 73 20 69 73 20 61 20 25 |ror "Thi|s is a %|
|00003c40| 73 2c 20 6e 6f 74 20 61 | 20 72 65 61 6c 20 66 69 |s, not a| real fi|
|00003c50| 6c 65 2e 22 20 35 20 22 | 64 69 72 65 63 74 6f 72 |le." 5 "|director|
|00003c60| 79 22 20 32 30 20 22 74 | 61 72 20 64 69 72 65 63 |y" 20 "t|ar direc|
|00003c70| 74 6f 72 79 20 68 65 61 | 64 65 72 22 20 32 39 20 |tory hea|der" 29 |
|00003c80| 22 6d 75 6c 74 69 76 6f | 6c 75 6d 65 2d 63 6f 6e |"multivo|lume-con|
|00003c90| 74 69 6e 75 61 74 69 6f | 6e 22 20 33 35 20 22 73 |tinuatio|n" 35 "s|
|00003ca0| 70 61 72 73 65 20 65 6e | 74 72 79 22 20 33 38 20 |parse en|try" 38 |
|00003cb0| 22 76 6f 6c 75 6d 65 20 | 68 65 61 64 65 72 22 20 |"volume |header" |
|00003cc0| 22 6c 69 6e 6b 22 20 22 | 54 68 69 73 20 69 73 20 |"link" "|This is |
|00003cd0| 61 20 7a 65 72 6f 2d 6c | 65 6e 67 74 68 20 66 69 |a zero-l|ength fi|
|00003ce0| 6c 65 2e 22 20 74 61 72 | 2d 62 75 66 66 65 72 20 |le." tar|-buffer |
|00003cf0| 66 69 6c 65 2d 6e 61 6d | 65 2d 6e 6f 6e 64 69 72 |file-nam|e-nondir|
|00003d00| 65 63 74 6f 72 79 20 62 | 75 66 6e 61 6d 65 20 22 |ectory b|ufname "|
|00003d10| 20 28 69 6e 20 22 20 62 | 75 66 66 65 72 2d 66 69 | (in " b|uffer-fi|
|00003d20| 6c 65 2d 6e 61 6d 65 20 | 22 29 22 20 62 75 66 69 |le-name |")" bufi|
|00003d30| 64 20 62 75 66 66 65 72 | 2d 72 65 61 64 2d 6f 6e |d buffer|-read-on|
|00003d40| 6c 79 20 72 65 61 64 2d | 6f 6e 6c 79 2d 70 20 6e |ly read-|only-p n|
|00003d50| 69 6c 20 62 75 66 66 65 | 72 20 62 75 66 66 65 72 |il buffe|r buffer|
|00003d60| 2d 6c 69 73 74 20 62 75 | 66 66 65 72 73 20 6a 75 |-list bu|ffers ju|
|00003d70| 73 74 2d 63 72 65 61 74 | 65 64 20 62 6f 75 6e 64 |st-creat|ed bound|
|00003d80| 70 20 73 75 70 65 72 69 | 6f 72 2d 74 61 72 2d 64 |p superi|or-tar-d|
|00003d90| 65 73 63 72 69 70 74 6f | 72 20 67 65 6e 65 72 61 |escripto|r genera|
|00003da0| 74 65 2d 6e 65 77 2d 62 | 75 66 66 65 72 20 74 20 |te-new-b|uffer t |
|00003db0| 28 28 6e 61 72 72 6f 77 | 2d 74 6f 2d 72 65 67 69 |((narrow|-to-regi|
|00003dc0| 6f 6e 20 31 20 74 61 72 | 2d 68 65 61 64 65 72 2d |on 1 tar|-header-|
|00003dd0| 6f 66 66 73 65 74 29 29 | 20 69 6e 73 65 72 74 2d |offset))| insert-|
|00003de0| 62 75 66 66 65 72 2d 73 | 75 62 73 74 72 69 6e 67 |buffer-s|ubstring|
|00003df0| 20 6c 6f 63 6b 2d 64 69 | 72 65 63 74 6f 72 79 20 | lock-di|rectory |
|00003e00| 73 65 74 2d 76 69 73 69 | 74 65 64 2d 66 69 6c 65 |set-visi|ted-file|
|00003e10| 2d 6e 61 6d 65 20 6e 6f | 72 6d 61 6c 2d 6d 6f 64 |-name no|rmal-mod|
|00003e20| 65 20 72 75 6e 2d 68 6f | 6f 6b 73 20 66 69 6e 64 |e run-ho|oks find|
|00003e30| 2d 66 69 6c 65 2d 68 6f | 6f 6b 73 20 6d 61 6b 65 |-file-ho|oks make|
|00003e40| 2d 6c 6f 63 61 6c 2d 76 | 61 72 69 61 62 6c 65 20 |-local-v|ariable |
|00003e50| 73 75 70 65 72 69 6f 72 | 2d 74 61 72 2d 62 75 66 |superior|-tar-buf|
|00003e60| 66 65 72 20 6d 6f 64 65 | 2d 6c 69 6e 65 2d 62 75 |fer mode|-line-bu|
|00003e70| 66 66 65 72 2d 69 64 65 | 6e 74 69 66 69 63 61 74 |ffer-ide|ntificat|
|00003e80| 69 6f 6e 20 74 61 72 2d | 73 75 62 66 69 6c 65 2d |ion tar-|subfile-|
|00003e90| 62 75 66 66 65 72 2d 69 | 64 20 73 75 62 66 69 6c |buffer-i|d subfil|
|00003ea0| 65 2d 6f 72 69 67 2d 6d | 6c 62 69 64 20 6e 20 6d |e-orig-m|lbid n m|
|00003eb0| 73 20 73 74 72 69 6e 67 | 2d 6d 61 74 63 68 20 22 |s string|-match "|
|00003ec0| 25 5c 5c 28 5b 30 2d 39 | 5d 2b 5c 5c 29 62 5c 5c |%\\([0-9|]+\\)b\\|
|00003ed0| 27 22 20 31 20 72 65 61 | 64 2d 66 72 6f 6d 2d 73 |'" 1 rea|d-from-s|
|00003ee0| 74 72 69 6e 67 20 22 25 | 62 22 20 22 45 6d 61 63 |tring "%|b" "Emac|
|00003ef0| 73 3a 20 22 20 31 37 20 | 74 61 72 2d 73 75 62 66 |s: " 17 |tar-subf|
|00003f00| 69 6c 65 2d 6d 6f 64 65 | 20 73 65 74 2d 62 75 66 |ile-mode| set-buf|
|00003f10| 66 65 72 2d 6d 6f 64 69 | 66 69 65 64 2d 70 20 76 |fer-modi|fied-p v|
|00003f20| 69 65 77 2d 62 75 66 66 | 65 72 2d 6f 74 68 65 72 |iew-buff|er-other|
|00003f30| 2d 77 69 6e 64 6f 77 20 | 76 69 65 77 2d 6b 69 6c |-window |view-kil|
|00003f40| 6c 2d 6f 6e 2d 65 78 69 | 74 20 73 77 69 74 63 68 |l-on-exi|t switch|
|00003f50| 2d 74 6f 2d 62 75 66 66 | 65 72 2d 6f 74 68 65 72 |-to-buff|er-other|
|00003f60| 2d 77 69 6e 64 6f 77 20 | 73 77 69 74 63 68 2d 74 |-window |switch-t|
|00003f70| 6f 2d 62 75 66 66 65 72 | 5d 20 36 20 28 23 24 20 |o-buffer|] 6 (#$ |
|00003f80| 2e 20 2d 31 34 37 30 34 | 29 20 6e 69 6c 5d 29 0a |. -14704|) nil]).|
|00003f90| 23 40 37 31 20 2a 49 6e | 20 74 61 72 2d 6d 6f 64 |#@71 *In| tar-mod|
|00003fa0| 65 2c 20 65 78 74 72 61 | 63 74 20 74 68 69 73 20 |e, extra|ct this |
|00003fb0| 65 6e 74 72 79 20 6f 66 | 20 74 68 65 20 74 61 72 |entry of| the tar|
|00003fc0| 20 66 69 6c 65 20 69 6e | 74 6f 20 69 74 73 20 6f | file in|to its o|
|00003fd0| 77 6e 20 62 75 66 66 65 | 72 2e 1f 0a 28 64 65 66 |wn buffe|r...(def|
|00003fe0| 61 6c 69 61 73 20 27 74 | 61 72 2d 65 78 74 72 61 |alias 't|ar-extra|
|00003ff0| 63 74 2d 6f 74 68 65 72 | 2d 77 69 6e 64 6f 77 20 |ct-other|-window |
|00004000| 23 5b 6e 69 6c 20 22 c0 | c1 21 87 22 20 5b 74 61 |#[nil ".|.!." [ta|
|00004010| 72 2d 65 78 74 72 61 63 | 74 20 74 5d 20 32 20 28 |r-extrac|t t] 2 (|
|00004020| 23 24 20 2e 20 2d 31 36 | 32 37 37 29 20 6e 69 6c |#$ . -16|277) nil|
|00004030| 5d 29 0a 23 40 35 33 20 | 2a 49 6e 20 74 61 72 2d |]).#@53 |*In tar-|
|00004040| 6d 6f 64 65 2c 20 76 69 | 65 77 20 74 68 65 20 74 |mode, vi|ew the t|
|00004050| 61 72 20 66 69 6c 65 20 | 65 6e 74 72 79 20 6f 6e |ar file |entry on|
|00004060| 20 74 68 69 73 20 6c 69 | 6e 65 2e 1f 0a 28 64 65 | this li|ne...(de|
|00004070| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 76 69 65 77 |falias '|tar-view|
|00004080| 20 23 5b 6e 69 6c 20 22 | c0 c1 21 87 22 20 5b 74 | #[nil "|..!." [t|
|00004090| 61 72 2d 65 78 74 72 61 | 63 74 20 76 69 65 77 5d |ar-extra|ct view]|
|000040a0| 20 32 20 28 23 24 20 2e | 20 2d 31 36 34 34 30 29 | 2 (#$ .| -16440)|
|000040b0| 20 6e 69 6c 5d 29 0a 23 | 40 39 31 20 43 61 6c 6c | nil]).#|@91 Call|
|000040c0| 73 20 72 65 61 64 2d 66 | 69 6c 65 2d 6e 61 6d 65 |s read-f|ile-name|
|000040d0| 2c 20 77 69 74 68 20 74 | 68 65 20 64 65 66 61 75 |, with t|he defau|
|000040e0| 6c 74 20 62 65 69 6e 67 | 20 74 68 65 20 66 69 6c |lt being| the fil|
|000040f0| 65 20 6f 66 20 74 68 65 | 20 63 75 72 72 65 6e 74 |e of the| current|
|00004100| 0a 74 61 72 2d 66 69 6c | 65 20 64 65 73 63 72 69 |.tar-fil|e descri|
|00004110| 70 74 6f 72 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ptor...(|defalias|
|00004120| 20 27 74 61 72 2d 72 65 | 61 64 2d 66 69 6c 65 2d | 'tar-re|ad-file-|
|00004130| 6e 61 6d 65 20 23 5b 28 | 26 6f 70 74 69 6f 6e 61 |name #[(|&optiona|
|00004140| 6c 20 70 72 6f 6d 70 74 | 29 20 22 08 ac 82 c1 10 |l prompt|) ".....|
|00004150| c2 c3 20 41 c4 48 21 1d | c2 c6 08 c7 0d 21 0d c8 |.. A.H!.|.....!..|
|00004160| 24 21 1e 09 ca 0e 09 21 | cb 98 ac 86 cc 0e 09 21 |$!.....!|.......!|
|00004170| ab 99 cd ce 0e 09 5c 22 | ab 89 0e 09 c4 89 95 53 |......\"|.......S|
|00004180| 4f aa 82 0e 09 cf ca 0d | 21 51 16 09 0e 09 2a 87 |O.......|!Q....*.|
|00004190| 22 20 5b 70 72 6f 6d 70 | 74 20 22 43 6f 70 79 20 |" [promp|t "Copy |
|000041a0| 74 6f 3a 20 22 20 65 78 | 70 61 6e 64 2d 66 69 6c |to: " ex|pand-fil|
|000041b0| 65 2d 6e 61 6d 65 20 74 | 61 72 2d 63 75 72 72 65 |e-name t|ar-curre|
|000041c0| 6e 74 2d 64 65 73 63 72 | 69 70 74 6f 72 20 30 20 |nt-descr|iptor 0 |
|000041d0| 64 65 66 61 75 6c 74 2d | 66 69 6c 65 20 72 65 61 |default-|file rea|
|000041e0| 64 2d 66 69 6c 65 2d 6e | 61 6d 65 20 66 69 6c 65 |d-file-n|ame file|
|000041f0| 2d 6e 61 6d 65 2d 64 69 | 72 65 63 74 6f 72 79 20 |-name-di|rectory |
|00004200| 6e 69 6c 20 74 61 72 67 | 65 74 20 66 69 6c 65 2d |nil targ|et file-|
|00004210| 6e 61 6d 65 2d 6e 6f 6e | 64 69 72 65 63 74 6f 72 |name-non|director|
|00004220| 79 20 22 22 20 66 69 6c | 65 2d 64 69 72 65 63 74 |y "" fil|e-direct|
|00004230| 6f 72 79 2d 70 20 73 74 | 72 69 6e 67 2d 6d 61 74 |ory-p st|ring-mat|
|00004240| 63 68 20 22 2f 24 22 20 | 22 2f 22 5d 20 36 20 28 |ch "/$" |"/"] 6 (|
|00004250| 23 24 20 2e 20 31 36 35 | 37 32 29 5d 29 0a 23 40 |#$ . 165|72)]).#@|
|00004260| 31 36 38 20 2a 49 6e 20 | 74 61 72 2d 6d 6f 64 65 |168 *In |tar-mode|
|00004270| 2c 20 65 78 74 72 61 63 | 74 20 74 68 69 73 20 65 |, extrac|t this e|
|00004280| 6e 74 72 79 20 6f 66 20 | 74 68 65 20 74 61 72 20 |ntry of |the tar |
|00004290| 66 69 6c 65 20 69 6e 74 | 6f 20 61 20 66 69 6c 65 |file int|o a file|
|000042a0| 20 6f 6e 20 64 69 73 6b | 2e 0a 49 66 20 54 4f 2d | on disk|..If TO-|
|000042b0| 46 49 4c 45 20 69 73 20 | 6e 6f 74 20 73 75 70 70 |FILE is |not supp|
|000042c0| 6c 69 65 64 2c 20 69 74 | 20 69 73 20 70 72 6f 6d |lied, it| is prom|
|000042d0| 70 74 65 64 20 66 6f 72 | 2c 20 64 65 66 61 75 6c |pted for|, defaul|
|000042e0| 74 69 6e 67 20 74 6f 20 | 74 68 65 20 6e 61 6d 65 |ting to |the name|
|000042f0| 20 6f 66 0a 74 68 65 20 | 63 75 72 72 65 6e 74 20 | of.the |current |
|00004300| 74 61 72 2d 65 6e 74 72 | 79 2e 1f 0a 28 64 65 66 |tar-entr|y...(def|
|00004310| 61 6c 69 61 73 20 27 74 | 61 72 2d 63 6f 70 79 20 |alias 't|ar-copy |
|00004320| 23 5b 28 26 6f 70 74 69 | 6f 6e 61 6c 20 74 6f 2d |#[(&opti|onal to-|
|00004330| 66 69 6c 65 29 20 22 c0 | 20 89 19 41 89 1a c3 48 |file) ".| ..A...H|
|00004340| 1c 5c 6e c5 48 1e 06 5c | 6e c7 48 1e 08 09 40 0e |.\n.H..\|n.H...@.|
|00004350| 09 5c 5c ca 5c 5c 89 1e | 0b 0e 06 5c 5c 1e 0c 0e |.\\.\\..|...\\...|
|00004360| 08 ab 84 cd ce 21 88 0e | 06 c3 55 ab 84 cd cf 21 |.....!..|..U....!|
|00004370| 88 70 1e 10 d1 1e 12 d3 | 8e d4 d5 21 16 12 7e 88 |.p......|...!..~.|
|00004380| 8a 0e 12 71 88 d6 0e 10 | 0e 0b 0e 0c 23 88 d7 d1 |...q....|....#...|
|00004390| 21 88 d8 0e 19 21 88 da | db 0c 0e 19 23 88 0e 10 |!....!..|....#...|
|000043a0| 71 2e 0b 87 22 20 5b 74 | 61 72 2d 63 75 72 72 65 |q..." [t|ar-curre|
|000043b0| 6e 74 2d 64 65 73 63 72 | 69 70 74 6f 72 20 64 65 |nt-descr|iptor de|
|000043c0| 73 63 72 69 70 74 6f 72 | 20 74 6f 6b 65 6e 73 20 |scriptor| tokens |
|000043d0| 30 20 6e 61 6d 65 20 34 | 20 73 69 7a 65 20 37 20 |0 name 4| size 7 |
|000043e0| 6c 69 6e 6b 2d 70 20 74 | 61 72 2d 68 65 61 64 65 |link-p t|ar-heade|
|000043f0| 72 2d 6f 66 66 73 65 74 | 20 2d 31 20 73 74 61 72 |r-offset| -1 star|
|00004400| 74 20 65 6e 64 20 65 72 | 72 6f 72 20 22 54 68 69 |t end er|ror "Thi|
|00004410| 73 20 69 73 20 61 20 6c | 69 6e 6b 2c 20 6e 6f 74 |s is a l|ink, not|
|00004420| 20 61 20 72 65 61 6c 20 | 66 69 6c 65 2e 22 20 22 | a real |file." "|
|00004430| 54 68 69 73 20 69 73 20 | 61 20 7a 65 72 6f 2d 6c |This is |a zero-l|
|00004440| 65 6e 67 74 68 20 66 69 | 6c 65 2e 22 20 74 61 72 |ength fi|le." tar|
|00004450| 2d 62 75 66 66 65 72 20 | 6e 69 6c 20 62 75 66 66 |-buffer |nil buff|
|00004460| 65 72 20 28 28 62 79 74 | 65 2d 63 6f 64 65 20 22 |er ((byt|e-code "|
|00004470| c0 09 7d 88 5c 6e ab 84 | c3 5c 6e 21 88 c0 87 22 |..}.\n..|.\n!..."|
|00004480| 20 5b 31 20 74 61 72 2d | 68 65 61 64 65 72 2d 6f | [1 tar-|header-o|
|00004490| 66 66 73 65 74 20 62 75 | 66 66 65 72 20 6b 69 6c |ffset bu|ffer kil|
|000044a0| 6c 2d 62 75 66 66 65 72 | 5d 20 32 29 29 20 67 65 |l-buffer|] 2)) ge|
|000044b0| 6e 65 72 61 74 65 2d 6e | 65 77 2d 62 75 66 66 65 |nerate-n|ew-buffe|
|000044c0| 72 20 22 2a 74 61 72 2d | 63 6f 70 79 2d 74 6d 70 |r "*tar-|copy-tmp|
|000044d0| 2a 22 20 69 6e 73 65 72 | 74 2d 62 75 66 66 65 72 |*" inser|t-buffer|
|000044e0| 2d 73 75 62 73 74 72 69 | 6e 67 20 73 65 74 2d 62 |-substri|ng set-b|
|000044f0| 75 66 66 65 72 2d 6d 6f | 64 69 66 69 65 64 2d 70 |uffer-mo|dified-p|
|00004500| 20 77 72 69 74 65 2d 66 | 69 6c 65 20 74 6f 2d 66 | write-f|ile to-f|
|00004510| 69 6c 65 20 6d 65 73 73 | 61 67 65 20 22 43 6f 70 |ile mess|age "Cop|
|00004520| 69 65 64 20 74 61 72 20 | 65 6e 74 72 79 20 25 73 |ied tar |entry %s|
|00004530| 20 74 6f 20 25 73 22 5d | 20 35 20 28 23 24 20 2e | to %s"]| 5 (#$ .|
|00004540| 20 2d 31 36 39 39 36 29 | 20 28 6c 69 73 74 20 28 | -16996)| (list (|
|00004550| 74 61 72 2d 72 65 61 64 | 2d 66 69 6c 65 2d 6e 61 |tar-read|-file-na|
|00004560| 6d 65 29 29 5d 29 0a 23 | 40 31 31 33 20 2a 49 6e |me))]).#|@113 *In|
|00004570| 20 74 61 72 20 6d 6f 64 | 65 2c 20 6d 61 72 6b 20 | tar mod|e, mark |
|00004580| 74 68 69 73 20 73 75 62 | 2d 66 69 6c 65 20 74 6f |this sub|-file to|
|00004590| 20 62 65 20 64 65 6c 65 | 74 65 64 20 66 72 6f 6d | be dele|ted from|
|000045a0| 20 74 68 65 20 74 61 72 | 20 66 69 6c 65 2e 0a 57 | the tar| file..W|
|000045b0| 69 74 68 20 61 20 70 72 | 65 66 69 78 20 61 72 67 |ith a pr|efix arg|
|000045c0| 75 6d 65 6e 74 2c 20 6d | 61 72 6b 20 74 68 61 74 |ument, m|ark that|
|000045d0| 20 6d 61 6e 79 20 66 69 | 6c 65 73 2e 1f 0a 28 64 | many fi|les...(d|
|000045e0| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 66 6c 61 |efalias |'tar-fla|
|000045f0| 67 2d 64 65 6c 65 74 65 | 64 20 23 5b 28 70 20 26 |g-delete|d #[(p &|
|00004600| 6f 70 74 69 6f 6e 61 6c | 20 75 6e 66 6c 61 67 29 |optional| unflag)|
|00004610| 20 22 c0 79 88 09 c0 57 | ab 84 09 5b aa 81 09 c0 | ".y...W|...[....|
|00004620| 1a 1b 5c 6e 0b 57 ab a3 | c4 0d 21 ab 8d c6 c7 21 |..\n.W..|..!....!|
|00004630| 88 0d ab 83 c8 aa 81 c9 | 63 88 09 c0 57 ab 83 ca |........|c...W...|
|00004640| aa 81 c7 79 88 5c 6e 54 | 89 12 aa 59 2a 6d 3f ad |...y.\nT|...Y*m?.|
|00004650| 82 cb 75 87 22 20 5b 30 | 20 70 20 69 20 2d 2d 64 |..u." [0| p i --d|
|00004660| 6f 74 69 6d 65 73 2d 74 | 65 6d 70 2d 2d 38 37 37 |otimes-t|emp--877|
|00004670| 31 30 20 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |10 tar-c|urrent-d|
|00004680| 65 73 63 72 69 70 74 6f | 72 20 75 6e 66 6c 61 67 |escripto|r unflag|
|00004690| 20 64 65 6c 65 74 65 2d | 63 68 61 72 20 31 20 22 | delete-|char 1 "|
|000046a0| 20 22 20 22 44 22 20 2d | 31 20 33 36 5d 20 33 20 | " "D" -|1 36] 3 |
|000046b0| 28 23 24 20 2e 20 2d 31 | 37 37 37 33 29 20 22 70 |(#$ . -1|7773) "p|
|000046c0| 22 5d 29 0a 23 40 31 32 | 35 20 2a 49 6e 20 74 61 |"]).#@12|5 *In ta|
|000046d0| 72 20 6d 6f 64 65 2c 20 | 75 6e 2d 6d 61 72 6b 20 |r mode, |un-mark |
|000046e0| 74 68 69 73 20 73 75 62 | 2d 66 69 6c 65 20 69 66 |this sub|-file if|
|000046f0| 20 69 74 20 69 73 20 6d | 61 72 6b 65 64 20 74 6f | it is m|arked to|
|00004700| 20 62 65 20 64 65 6c 65 | 74 65 64 2e 0a 57 69 74 | be dele|ted..Wit|
|00004710| 68 20 61 20 70 72 65 66 | 69 78 20 61 72 67 75 6d |h a pref|ix argum|
|00004720| 65 6e 74 2c 20 75 6e 2d | 6d 61 72 6b 20 74 68 61 |ent, un-|mark tha|
|00004730| 74 20 6d 61 6e 79 20 66 | 69 6c 65 73 20 66 6f 72 |t many f|iles for|
|00004740| 77 61 72 64 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |ward...(|defalias|
|00004750| 20 27 74 61 72 2d 75 6e | 66 6c 61 67 20 23 5b 28 | 'tar-un|flag #[(|
|00004760| 70 29 20 22 c0 09 c2 5c | 22 87 22 20 5b 74 61 72 |p) "...\|"." [tar|
|00004770| 2d 66 6c 61 67 2d 64 65 | 6c 65 74 65 64 20 70 20 |-flag-de|leted p |
|00004780| 74 5d 20 33 20 28 23 24 | 20 2e 20 2d 31 38 31 32 |t] 3 (#$| . -1812|
|00004790| 32 29 20 22 70 22 5d 29 | 0a 23 40 31 32 36 20 2a |2) "p"])|.#@126 *|
|000047a0| 49 6e 20 74 61 72 20 6d | 6f 64 65 2c 20 75 6e 2d |In tar m|ode, un-|
|000047b0| 6d 61 72 6b 20 74 68 69 | 73 20 73 75 62 2d 66 69 |mark thi|s sub-fi|
|000047c0| 6c 65 20 69 66 20 69 74 | 20 69 73 20 6d 61 72 6b |le if it| is mark|
|000047d0| 65 64 20 74 6f 20 62 65 | 20 64 65 6c 65 74 65 64 |ed to be| deleted|
|000047e0| 2e 0a 57 69 74 68 20 61 | 20 70 72 65 66 69 78 20 |..With a| prefix |
|000047f0| 61 72 67 75 6d 65 6e 74 | 2c 20 75 6e 2d 6d 61 72 |argument|, un-mar|
|00004800| 6b 20 74 68 61 74 20 6d | 61 6e 79 20 66 69 6c 65 |k that m|any file|
|00004810| 73 20 62 61 63 6b 77 61 | 72 64 2e 1f 0a 28 64 65 |s backwa|rd...(de|
|00004820| 66 61 6c 69 61 73 20 27 | 74 61 72 2d 75 6e 66 6c |falias '|tar-unfl|
|00004830| 61 67 2d 62 61 63 6b 77 | 61 72 64 73 20 23 5b 28 |ag-backw|ards #[(|
|00004840| 70 29 20 22 c0 09 5b c2 | 5c 22 87 22 20 5b 74 61 |p) "..[.|\"." [ta|
|00004850| 72 2d 66 6c 61 67 2d 64 | 65 6c 65 74 65 64 20 70 |r-flag-d|eleted p|
|00004860| 20 74 5d 20 33 20 28 23 | 24 20 2e 20 2d 31 38 33 | t] 3 (#|$ . -183|
|00004870| 33 35 29 20 22 70 22 5d | 29 0a 23 40 35 34 20 45 |35) "p"]|).#@54 E|
|00004880| 78 70 75 6e 67 65 20 74 | 68 65 20 74 61 72 2d 65 |xpunge t|he tar-e|
|00004890| 6e 74 72 79 20 73 70 65 | 63 69 66 69 65 64 20 62 |ntry spe|cified b|
|000048a0| 79 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 6c 69 |y the cu|rrent li|
|000048b0| 6e 65 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |ne...(de|falias '|
|000048c0| 74 61 72 2d 65 78 70 75 | 6e 67 65 2d 69 6e 74 65 |tar-expu|nge-inte|
|000048d0| 72 6e 61 6c 20 23 5b 6e | 69 6c 20 22 c0 20 89 19 |rnal #[n|il ". ..|
|000048e0| 41 1a 09 40 1b 5c 6e c4 | 48 1d 5c 6e c6 48 1e 07 |A..@.\n.|H.\n.H..|
|000048f0| 5c 6e c8 48 1e 09 09 40 | 1e 5c 6e 09 0e 0b 73 41 |\n.H...@|.\n...sA|
|00004900| 1e 0c 0e 09 ab 83 c4 16 | 07 c4 79 88 60 1e 0d ce |........|..y.`...|
|00004910| 7f 88 ce 75 88 60 0e 0d | 5a 1e 0f 0e 0d 60 7c 88 |...u.`..|Z....`|.|
|00004920| 0e 10 0e 0f 5a 16 10 2a | d1 09 0e 0b 5c 22 16 0b |....Z..*|....\"..|
|00004930| 7e 88 0e 5c 6e 0e 10 5c | 5c d2 5c 5c 89 1e 13 d4 |~..\n..\|\.\\....|
|00004940| 89 0e 07 d5 5c 5c d6 5c | 22 d7 5c 22 5c 5c d8 5c |....\\.\|".\"\\.\|
|00004950| 5c 1e 19 0e 13 0e 19 7c | 88 0e 19 0e 13 5a 1e 1a |\......||.....Z..|
|00004960| 0e 0c ce 1e 1b 89 1e 1c | ab 95 0e 1c 40 89 16 1b |........|....@...|
|00004970| 89 40 0e 1a 5a a0 88 0e | 1c 41 89 16 1c ac 6b 2e |.@..Z...|.A....k.|
|00004980| 0d dd 0e 10 7d 87 22 20 | 5b 74 61 72 2d 63 75 72 |....}." |[tar-cur|
|00004990| 72 65 6e 74 2d 64 65 73 | 63 72 69 70 74 6f 72 20 |rent-des|criptor |
|000049a0| 64 65 73 63 72 69 70 74 | 6f 72 20 74 6f 6b 65 6e |descript|or token|
|000049b0| 73 20 6c 69 6e 65 20 30 | 20 6e 61 6d 65 20 34 20 |s line 0| name 4 |
|000049c0| 73 69 7a 65 20 37 20 6c | 69 6e 6b 2d 70 20 73 74 |size 7 l|ink-p st|
|000049d0| 61 72 74 20 74 61 72 2d | 70 61 72 73 65 2d 69 6e |art tar-|parse-in|
|000049e0| 66 6f 20 66 6f 6c 6c 6f | 77 69 6e 67 2d 64 65 73 |fo follo|wing-des|
|000049f0| 63 73 20 6c 69 6e 65 2d | 73 74 61 72 74 20 6e 69 |cs line-|start ni|
|00004a00| 6c 20 6c 69 6e 65 2d 6c | 65 6e 20 74 61 72 2d 68 |l line-l|en tar-h|
|00004a10| 65 61 64 65 72 2d 6f 66 | 66 73 65 74 20 64 65 6c |eader-of|fset del|
|00004a20| 71 20 2d 35 31 33 20 64 | 61 74 61 2d 73 74 61 72 |q -513 d|ata-star|
|00004a30| 74 20 61 73 68 20 35 31 | 31 20 2d 39 20 39 20 35 |t ash 51|1 -9 9 5|
|00004a40| 31 32 20 64 61 74 61 2d | 65 6e 64 20 64 61 74 61 |12 data-|end data|
|00004a50| 2d 6c 65 6e 67 74 68 20 | 64 65 73 63 20 2d 2d 64 |-length |desc --d|
|00004a60| 6f 6c 69 73 74 2d 74 65 | 6d 70 2d 2d 38 37 37 31 |olist-te|mp--8771|
|00004a70| 31 20 31 5d 20 36 20 28 | 23 24 20 2e 20 31 38 35 |1 1] 6 (|#$ . 185|
|00004a80| 35 39 29 5d 29 0a 23 40 | 31 36 34 20 2a 49 6e 20 |59)]).#@|164 *In |
|00004a90| 74 61 72 2d 6d 6f 64 65 | 2c 20 64 65 6c 65 74 65 |tar-mode|, delete|
|00004aa0| 20 61 6c 6c 20 74 68 65 | 20 61 72 63 68 69 76 65 | all the| archive|
|00004ab0| 64 20 66 69 6c 65 73 20 | 66 6c 61 67 67 65 64 20 |d files |flagged |
|00004ac0| 66 6f 72 20 64 65 6c 65 | 74 69 6f 6e 2e 0a 54 68 |for dele|tion..Th|
|00004ad0| 69 73 20 64 6f 65 73 20 | 6e 6f 74 20 6d 6f 64 69 |is does |not modi|
|00004ae0| 66 79 20 74 68 65 20 64 | 69 73 6b 20 69 6d 61 67 |fy the d|isk imag|
|00004af0| 65 3b 20 79 6f 75 20 6d | 75 73 74 20 73 61 76 65 |e; you m|ust save|
|00004b00| 20 74 68 65 20 74 61 72 | 20 66 69 6c 65 20 69 74 | the tar| file it|
|00004b10| 73 65 6c 66 0a 66 6f 72 | 20 74 68 69 73 20 74 6f |self.for| this to|
|00004b20| 20 62 65 20 70 65 72 6d | 61 6e 65 6e 74 2e 1f 0a | be perm|anent...|
|00004b30| 28 64 65 66 61 6c 69 61 | 73 20 27 74 61 72 2d 65 |(defalia|s 'tar-e|
|00004b40| 78 70 75 6e 67 65 20 23 | 5b 28 26 6f 70 74 69 6f |xpunge #|[(&optio|
|00004b50| 6e 61 6c 20 6e 6f 63 6f | 6e 66 69 72 6d 29 20 22 |nal noco|nfirm) "|
|00004b60| 08 ac 85 c1 c2 21 ad b3 | c3 1c 8a c3 62 88 6d ac |.....!..|....b.m.|
|00004b70| 92 c5 c6 21 ab 88 c7 20 | 88 0c 54 14 aa 70 c8 79 |...!... |..T..p.y|
|00004b80| 88 aa 6b c9 20 88 c8 0e | 5c 6e 7d 88 29 0c c3 55 |..k. ...|\n}.)..U|
|00004b90| ab 85 cb cc 21 aa 84 cb | cd 0c 5c 22 29 87 22 20 |....!...|..\")." |
|00004ba0| 5b 6e 6f 63 6f 6e 66 69 | 72 6d 20 79 2d 6f 72 2d |[noconfi|rm y-or-|
|00004bb0| 6e 2d 70 20 22 65 78 70 | 75 6e 67 65 20 66 69 6c |n-p "exp|unge fil|
|00004bc0| 65 73 20 6d 61 72 6b 65 | 64 20 66 6f 72 20 64 65 |es marke|d for de|
|00004bd0| 6c 65 74 69 6f 6e 3f 20 | 22 20 30 20 6e 20 6c 6f |letion? |" 0 n lo|
|00004be0| 6f 6b 69 6e 67 2d 61 74 | 20 22 44 22 20 74 61 72 |oking-at| "D" tar|
|00004bf0| 2d 65 78 70 75 6e 67 65 | 2d 69 6e 74 65 72 6e 61 |-expunge|-interna|
|00004c00| 6c 20 31 20 74 61 72 2d | 70 61 64 2d 74 6f 2d 62 |l 1 tar-|pad-to-b|
|00004c10| 6c 6f 63 6b 73 69 7a 65 | 20 74 61 72 2d 68 65 61 |locksize| tar-hea|
|00004c20| 64 65 72 2d 6f 66 66 73 | 65 74 20 6d 65 73 73 61 |der-offs|et messa|
|00004c30| 67 65 20 22 6e 6f 74 68 | 69 6e 67 20 74 6f 20 65 |ge "noth|ing to e|
|00004c40| 78 70 75 6e 67 65 2e 22 | 20 22 25 73 20 65 78 70 |xpunge."| "%s exp|
|00004c50| 75 6e 67 65 64 2e 20 20 | 42 65 20 73 75 72 65 20 |unged.  |Be sure |
|00004c60| 74 6f 20 73 61 76 65 20 | 74 68 69 73 20 62 75 66 |to save |this buf|
|00004c70| 66 65 72 2e 22 5d 20 33 | 20 28 23 24 20 2e 20 2d |fer."] 3| (#$ . -|
|00004c80| 31 39 30 38 34 29 20 6e | 69 6c 5d 29 0a 23 40 34 |19084) n|il]).#@4|
|00004c90| 39 20 72 65 6d 6f 76 65 | 20 74 68 65 20 73 74 61 |9 remove| the sta|
|00004ca0| 72 73 20 61 74 20 74 68 | 65 20 62 65 67 69 6e 6e |rs at th|e beginn|
|00004cb0| 69 6e 67 20 6f 66 20 65 | 61 63 68 20 6c 69 6e 65 |ing of e|ach line|
|00004cc0| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 74 61 |...(defa|lias 'ta|
|00004cd0| 72 2d 63 6c 65 61 72 2d | 6d 6f 64 69 66 69 63 61 |r-clear-|modifica|
|00004ce0| 74 69 6f 6e 2d 66 6c 61 | 67 73 20 23 5b 6e 69 6c |tion-fla|gs #[nil|
|00004cf0| 20 22 8a c0 62 88 60 09 | 57 ad 91 c2 c3 21 ab 87 | "..b.`.|W....!..|
|00004d00| c4 c5 21 88 c6 63 88 c5 | 79 88 aa 6a 29 87 22 20 |..!..c..|y..j)." |
|00004d10| 5b 30 20 74 61 72 2d 68 | 65 61 64 65 72 2d 6f 66 |[0 tar-h|eader-of|
|00004d20| 66 73 65 74 20 6c 6f 6f | 6b 69 6e 67 2d 61 74 20 |fset loo|king-at |
|00004d30| 22 2a 22 20 64 65 6c 65 | 74 65 2d 63 68 61 72 20 |"*" dele|te-char |
|00004d40| 31 20 22 20 22 5d 20 32 | 20 28 23 24 20 2e 20 31 |1 " "] 2| (#$ . 1|
|00004d50| 39 36 30 32 29 5d 29 0a | 23 40 33 36 38 20 2a 43 |9602)]).|#@368 *C|
|00004d60| 68 61 6e 67 65 20 74 68 | 65 20 75 73 65 72 2d 69 |hange th|e user-i|
|00004d70| 64 20 61 73 73 6f 63 69 | 61 74 65 64 20 77 69 74 |d associ|ated wit|
|00004d80| 68 20 74 68 69 73 20 65 | 6e 74 72 79 20 69 6e 20 |h this e|ntry in |
|00004d90| 74 68 65 20 74 61 72 20 | 66 69 6c 65 2e 0a 49 66 |the tar |file..If|
|00004da0| 20 74 68 69 73 20 74 61 | 72 20 66 69 6c 65 20 77 | this ta|r file w|
|00004db0| 61 73 20 77 72 69 74 74 | 65 6e 20 62 79 20 47 4e |as writt|en by GN|
|00004dc0| 55 20 74 61 72 2c 20 74 | 68 65 6e 20 79 6f 75 20 |U tar, t|hen you |
|00004dd0| 77 69 6c 6c 20 62 65 20 | 61 62 6c 65 20 74 6f 20 |will be |able to |
|00004de0| 65 64 69 74 0a 74 68 65 | 20 75 73 65 72 20 69 64 |edit.the| user id|
|00004df0| 20 61 73 20 61 20 73 74 | 72 69 6e 67 3b 20 6f 74 | as a st|ring; ot|
|00004e00| 68 65 72 77 69 73 65 2c | 20 79 6f 75 20 6d 75 73 |herwise,| you mus|
|00004e10| 74 20 65 64 69 74 20 69 | 74 20 61 73 20 61 20 6e |t edit i|t as a n|
|00004e20| 75 6d 62 65 72 2e 0a 59 | 6f 75 20 63 61 6e 20 66 |umber..Y|ou can f|
|00004e30| 6f 72 63 65 20 65 64 69 | 74 69 6e 67 20 61 73 20 |orce edi|ting as |
|00004e40| 61 20 6e 75 6d 62 65 72 | 20 62 79 20 63 61 6c 6c |a number| by call|
|00004e50| 69 6e 67 20 74 68 69 73 | 20 77 69 74 68 20 61 20 |ing this| with a |
|00004e60| 70 72 65 66 69 78 20 61 | 72 67 2e 0a 54 68 69 73 |prefix a|rg..This|
|00004e70| 20 64 6f 65 73 20 6e 6f | 74 20 6d 6f 64 69 66 79 | does no|t modify|
|00004e80| 20 74 68 65 20 64 69 73 | 6b 20 69 6d 61 67 65 3b | the dis|k image;|
|00004e90| 20 79 6f 75 20 6d 75 73 | 74 20 73 61 76 65 20 74 | you mus|t save t|
|00004ea0| 68 65 20 74 61 72 20 66 | 69 6c 65 20 69 74 73 65 |he tar f|ile itse|
|00004eb0| 6c 66 0a 66 6f 72 20 74 | 68 69 73 20 74 6f 20 62 |lf.for t|his to b|
|00004ec0| 65 20 70 65 72 6d 61 6e | 65 6e 74 2e 1f 0a 28 64 |e perman|ent...(d|
|00004ed0| 65 66 61 6c 69 61 73 20 | 27 74 61 72 2d 63 68 6f |efalias |'tar-cho|
|00004ee0| 77 6e 2d 65 6e 74 72 79 | 20 23 5b 28 6e 65 77 2d |wn-entry| #[(new-|
|00004ef0| 75 69 64 29 20 22 08 3b | ab 91 c1 20 41 89 1a c3 |uid) ".;|... A...|
|00004f00| 08 49 88 29 c4 0d 08 c6 | 50 5c 22 87 c1 20 41 89 |.I.)....|P\".. A.|
|00004f10| 1e 07 c8 08 49 88 29 c4 | 0e 09 ca cb 08 5c 22 cc |....I.).|.....\".|
|00004f20| cd 4f ce 50 5c 22 87 22 | 20 5b 6e 65 77 2d 75 69 |.O.P\"."| [new-ui|
|00004f30| 64 20 74 61 72 2d 63 75 | 72 72 65 6e 74 2d 64 65 |d tar-cu|rrent-de|
|00004f40| 73 63 72 69 70 74 6f 72 | 20 47 38 37 37 31 34 20 |scriptor| G87714 |
|00004f50| 31 30 20 74 61 72 2d 61 | 6c 74 65 72 2d 6f 6e 65 |10 tar-a|lter-one|
|00004f60| 2d 66 69 65 6c 64 20 74 | 61 72 2d 75 6e 61 6d 65 |-field t|ar-uname|
|00004f70| 2d 6f 66 66 73 65 74 20 | 22 00 22 20 47 38 37 37 |-offset |"." G877|
|00004f80| 31 36 20 32 20 74 61 72 | 2d 75 69 64 2d 6f 66 66 |16 2 tar|-uid-off|
|00004f90| 73 65 74 20 66 6f 72 6d | 61 74 20 22 25 36 6f 22 |set form|at "%6o"|
|00004fa0| 20 30 20 36 20 22 00 20 | 22 5d 20 36 20 28 23 24 | 0 6 ". |"] 6 (#$|
|00004fb0| 20 2e 20 2d 31 39 38 30 | 36 29 20 28 6c 69 73 74 | . -1980|6) (list|
|00004fc0| 20 28 6c 65 74 20 28 28 | 74 6f 6b 65 6e 73 20 28 | (let ((|tokens (|
|00004fd0| 74 61 72 2d 64 65 73 63 | 2d 74 6f 6b 65 6e 73 20 |tar-desc|-tokens |
|00004fe0| 28 74 61 72 2d 63 75 72 | 72 65 6e 74 2d 64 65 73 |(tar-cur|rent-des|
|00004ff0| 63 72 69 70 74 6f 72 29 | 29 29 29 20 28 69 66 20 |criptor)|))) (if |
|00005000| 28 6f 72 20 63 75 72 72 | 65 6e 74 2d 70 72 65 66 |(or curr|ent-pref|
|00005010| 69 78 2d 61 72 67 20 28 | 6e 6f 74 20 28 74 61 72 |ix-arg (|not (tar|
|00005020| 2d 68 65 61 64 65 72 2d | 6d 61 67 69 63 20 74 6f |-header-|magic to|
|00005030| 6b 65 6e 73 29 29 29 20 | 28 6c 65 74 20 28 6e 29 |kens))) |(let (n)|
|00005040| 20 28 77 68 69 6c 65 20 | 28 6e 6f 74 20 28 6e 75 | (while |(not (nu|
|00005050| 6d 62 65 72 70 20 28 73 | 65 74 71 20 6e 20 28 72 |mberp (s|etq n (r|
|00005060| 65 61 64 2d 6d 69 6e 69 | 62 75 66 66 65 72 20 22 |ead-mini|buffer "|
|00005070| 4e 65 77 20 55 49 44 20 | 6e 75 6d 62 65 72 3a 20 |New UID |number: |
|00005080| 22 20 28 66 6f 72 6d 61 | 74 20 22 25 73 22 20 28 |" (forma|t "%s" (|
|00005090| 74 61 72 2d 68 65 61 64 | 65 72 2d 75 69 64 20 74 |tar-head|er-uid t|
|000050a0| 6f 6b 65 6e 73 29 29 29 | 29 29 29 29 20 6e 29 20 |okens)))|)))) n) |
|000050b0| 28 72 65 61 64 2d 73 74 | 72 69 6e 67 20 22 4e 65 |(read-st|ring "Ne|
|000050c0| 77 20 55 49 44 20 73 74 | 72 69 6e 67 3a 20 22 20 |w UID st|ring: " |
|000050d0| 28 74 61 72 2d 68 65 61 | 64 65 72 2d 75 6e 61 6d |(tar-hea|der-unam|
|000050e0| 65 20 74 6f 6b 65 6e 73 | 29 29 29 29 29 5d 29 0a |e tokens|)))))]).|
|000050f0| 23 40 33 37 30 20 2a 43 | 68 61 6e 67 65 20 74 68 |#@370 *C|hange th|
|00005100| 65 20 67 72 6f 75 70 2d | 69 64 20 61 73 73 6f 63 |e group-|id assoc|
|00005110| 69 61 74 65 64 20 77 69 | 74 68 20 74 68 69 73 20 |iated wi|th this |
|00005120| 65 6e 74 72 79 20 69 6e | 20 74 68 65 20 74 61 72 |entry in| the tar|
|00005130| 20 66 69 6c 65 2e 0a 49 | 66 20 74 68 69 73 20 74 | file..I|f this t|
|00005140| 61 72 20 66 69 6c 65 20 | 77 61 73 20 77 72 69 74 |ar file |was writ|
|00005150| 74 65 6e 20 62 79 20 47 | 4e 55 20 74 61 72 2c 20 |ten by G|NU tar, |
|00005160| 74 68 65 6e 20 79 6f 75 | 20 77 69 6c 6c 20 62 65 |then you| will be|
|00005170| 20 61 62 6c 65 20 74 6f | 20 65 64 69 74 0a 74 68 | able to| edit.th|
|00005180| 65 20 67 72 6f 75 70 20 | 69 64 20 61 73 20 61 20 |e group |id as a |
|00005190| 73 74 72 69 6e 67 3b 20 | 6f 74 68 65 72 77 69 73 |string; |otherwis|
|000051a0| 65 2c 20 79 6f 75 20 6d | 75 73 74 20 65 64 69 74 |e, you m|ust edit|
|000051b0| 20 69 74 20 61 73 20 61 | 20 6e 75 6d 62 65 72 2e | it as a| number.|
|000051c0| 0a 59 6f 75 20 63 61 6e | 20 66 6f 72 63 65 20 65 |.You can| force e|
|000051d0| 64 69 74 69 6e 67 20 61 | 73 20 61 20 6e 75 6d 62 |diting a|s a numb|
|000051e0| 65 72 20 62 79 20 63 61 | 6c 6c 69 6e 67 20 74 68 |er by ca|lling th|
|000051f0| 69 73 20 77 69 74 68 20 | 61 20 70 72 65 66 69 78 |is with |a prefix|
|00005200| 20 61 72 67 2e 0a 54 68 | 69 73 20 64 6f 65 73 20 | arg..Th|is does |
|00005210| 6e 6f 74 20 6d 6f 64 69 | 66 79 20 74 68 65 20 64 |not modi|fy the d|
|00005220| 69 73 6b 20 69 6d 61 67 | 65 3b 20 79 6f 75 20 6d |isk imag|e; you m|
|00005230| 75 73 74 20 73 61 76 65 | 20 74 68 65 20 74 61 72 |ust save| the tar|
|00005240| 20 66 69 6c 65 20 69 74 | 73 65 6c 66 0a 66 6f 72 | file it|self.for|
|00005250| 20 74 68 69 73 20 74 6f | 20 62 65 20 70 65 72 6d | this to| be perm|
|00005260| 61 6e 65 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |anent...|(defalia|
|00005270| 73 20 27 74 61 72 2d 63 | 68 67 72 70 2d 65 6e 74 |s 'tar-c|hgrp-ent|
|00005280| 72 79 20 23 5b 28 6e 65 | 77 2d 67 69 64 29 20 22 |ry #[(ne|w-gid) "|
|00005290| 08 3b ab 91 c1 20 41 89 | 1a c3 08 49 88 29 c4 0d |.;... A.|...I.)..|
|000052a0| 08 c6 50 5c 22 87 c1 20 | 41 89 1e 07 c8 08 49 88 |..P\".. |A.....I.|
|000052b0| 29 c4 0e 09 ca cb 08 5c | 22 cc cd 4f ce 50 5c 22 |)......\|"..O.P\"|
|000052c0| 87 22 20 5b 6e 65 77 2d | 67 69 64 20 74 61 72 2d |." [new-|gid tar-|
|000052d0| 63 75 72 72 65 6e 74 2d | 64 65 73 63 72 69 70 74 |current-|descript|
|000052e0| 6f 72 20 47 38 37 37 31 | 38 20 31 31 20 74 61 72 |or G8771|8 11 tar|
|000052f0| 2d 61 6c 74 65 72 2d 6f | 6e 65 2d 66 69 65 6c 64 |-alter-o|ne-field|
|00005300| 20 74 61 72 2d 67 6e 61 | 6d 65 2d 6f 66 66 73 65 | tar-gna|me-offse|
|00005310| 74 20 22 00 22 20 47 38 | 37 37 32 30 20 33 20 74 |t "." G8|7720 3 t|
|00005320| 61 72 2d 67 69 64 2d 6f | 66 66 73 65 74 20 66 6f |ar-gid-o|ffset fo|
|00005330| 72 6d 61 74 20 22 25 36 | 6f 22 20 30 20 36 20 22 |rmat "%6|o" 0 6 "|
|00005340| 00 20 22 5d 20 36 20 28 | 23 24 20 2e 20 2d 32 30 |. "] 6 (|#$ . -20|
|00005350| 37 32 36 29 20 28 6c 69 | 73 74 20 28 6c 65 74 20 |726) (li|st (let |
|00005360| 28 28 74 6f 6b 65 6e 73 | 20 28 74 61 72 2d 64 65 |((tokens| (tar-de|
|00005370| 73 63 2d 74 6f 6b 65 6e | 73 20 28 74 61 72 2d 63 |sc-token|s (tar-c|
|00005380| 75 72 72 65 6e 74 2d 64 | 65 73 63 72 69 70 74 6f |urrent-d|escripto|
|00005390| 72 29 29 29 29 20 28 69 | 66 20 28 6f 72 20 63 75 |r)))) (i|f (or cu|
|000053a0| 72 72 65 6e 74 2d 70 72 | 65 66 69 78 2d 61 72 67 |rrent-pr|efix-arg|
|000053b0| 20 28 6e 6f 74 20 28 74 | 61 72 2d 68 65 61 64 65 | (not (t|ar-heade|
|000053c0| 72 2d 6d 61 67 69 63 20 | 74 6f 6b 65 6e 73 29 29 |r-magic |tokens))|
|000053d0| 29 20 28 6c 65 74 20 28 | 6e 29 20 28 77 68 69 6c |) (let (|n) (whil|
|000053e0| 65 20 28 6e 6f 74 20 28 | 6e 75 6d 62 65 72 70 20 |e (not (|numberp |
|000053f0| 28 73 65 74 71 20 6e 20 | 28 72 65 61 64 2d 6d 69 |(setq n |(read-mi|
|00005400| 6e 69 62 75 66 66 65 72 | 20 22 4e 65 77 20 47 49 |nibuffer| "New GI|
|00005410| 44 20 6e 75 6d 62 65 72 | 3a 20 22 20 28 66 6f 72 |D number|: " (for|
|00005420| 6d 61 74 20 22 25 73 22 | 20 28 74 61 72 2d 68 65 |mat "%s"| (tar-he|
|00005430| 61 64 65 72 2d 67 69 64 | 20 74 6f 6b 65 6e 73 29 |ader-gid| tokens)|
|00005440| 29 29 29 29 29 29 20 6e | 29 20 28 72 65 61 64 2d |)))))) n|) (read-|
|00005450| 73 74 72 69 6e 67 20 22 | 4e 65 77 20 47 49 44 20 |string "|New GID |
|00005460| 73 74 72 69 6e 67 3a 20 | 22 20 28 74 61 72 2d 68 |string: |" (tar-h|
|00005470| 65 61 64 65 72 2d 67 6e | 61 6d 65 20 74 6f 6b 65 |eader-gn|ame toke|
|00005480| 6e 73 29 29 29 29 29 5d | 29 0a 23 40 31 35 39 20 |ns)))))]|).#@159 |
|00005490| 2a 43 68 61 6e 67 65 20 | 74 68 65 20 6e 61 6d 65 |*Change |the name|
|000054a0| 20 61 73 73 6f 63 69 61 | 74 65 64 20 77 69 74 68 | associa|ted with|
|000054b0| 20 74 68 69 73 20 65 6e | 74 72 79 20 69 6e 20 74 | this en|try in t|
|000054c0| 68 65 20 74 61 72 20 66 | 69 6c 65 2e 0a 54 68 69 |he tar f|ile..Thi|
|000054d0| 73 20 64 6f 65 73 20 6e | 6f 74 20 6d 6f 64 69 66 |s does n|ot modif|
|000054e0| 79 20 74 68 65 20 64 69 | 73 6b 20 69 6d 61 67 65 |y the di|sk image|
|000054f0| 3b 20 79 6f 75 20 6d 75 | 73 74 20 73 61 76 65 20 |; you mu|st save |
|00005500| 74 68 65 20 74 61 72 20 | 66 69 6c 65 20 69 74 73 |the tar |file its|
|00005510| 65 6c 66 0a 66 6f 72 20 | 74 68 69 73 20 74 6f 20 |elf.for |this to |
|00005520| 62 65 20 70 65 72 6d 61 | 6e 65 6e 74 2e 1f 0a 28 |be perma|nent...(|
|00005530| 64 65 66 61 6c 69 61 73 | 20 27 74 61 72 2d 72 65 |defalias| 'tar-re|
|00005540| 6e 61 6d 65 2d 65 6e 74 | 72 79 20 23 5b 28 6e 65 |name-ent|ry #[(ne|
|00005550| 77 2d 6e 61 6d 65 29 20 | 22 08 c1 98 ab 84 c2 c3 |w-name) |".......|
|00005560| 21 88 08 47 c4 56 ab 84 | c2 c5 21 88 c6 20 41 89 |!..G.V..|..!.. A.|
|00005570| 1e 07 c8 08 49 88 29 c9 | c8 08 ca cb c8 5c 22 50 |....I.).|.....\"P|
|00005580| c8 cb 4f 5c 22 87 22 20 | 5b 6e 65 77 2d 6e 61 6d |..O\"." |[new-nam|
|00005590| 65 20 22 22 20 65 72 72 | 6f 72 20 22 7a 65 72 6f |e "" err|or "zero|
|000055a0| 20 6c 65 6e 67 74 68 20 | 6e 61 6d 65 2e 22 20 39 | length |name." 9|
|000055b0| 38 20 22 6e 61 6d 65 20 | 74 6f 6f 20 6c 6f 6e 67 |8 "name |too long|
|000055c0| 2e 22 20 74 61 72 2d 63 | 75 72 72 65 6e 74 2d 64 |." tar-c|urrent-d|
|000055d0| 65 73 63 72 69 70 74 6f | 72 20 47 38 37 37 32 32 |escripto|r G87722|
|000055e0| 20 30 20 74 61 72 2d 61 | 6c 74 65 72 2d 6f 6e 65 | 0 tar-a|lter-one|
|000055f0| 2d 66 69 65 6c 64 20 6d | 61 6b 65 2d 73 74 72 69 |-field m|ake-stri|
|00005600| 6e 67 20 39 39 5d 20 37 | 20 28 23 24 20 2e 20 2d |ng 99] 7| (#$ . -|
|00005610| 32 31 36 34 38 29 20 28 | 6c 69 73 74 20 28 72 65 |21648) (|list (re|
|00005620| 61 64 2d 73 74 72 69 6e | 67 20 22 4e 65 77 20 6e |ad-strin|g "New n|
|00005630| 61 6d 65 3a 20 22 20 28 | 74 61 72 2d 68 65 61 64 |ame: " (|tar-head|
|00005640| 65 72 2d 6e 61 6d 65 20 | 28 74 61 72 2d 64 65 73 |er-name |(tar-des|
|00005650| 63 2d 74 6f 6b 65 6e 73 | 20 28 74 61 72 2d 63 75 |c-tokens| (tar-cu|
|00005660| 72 72 65 6e 74 2d 64 65 | 73 63 72 69 70 74 6f 72 |rrent-de|scriptor|
|00005670| 29 29 29 29 29 5d 29 0a | 23 40 31 37 30 20 2a 43 |)))))]).|#@170 *C|
|00005680| 68 61 6e 67 65 20 74 68 | 65 20 70 72 6f 74 65 63 |hange th|e protec|
|00005690| 74 69 6f 6e 20 62 69 74 | 73 20 61 73 73 6f 63 69 |tion bit|s associ|
|000056a0| 61 74 65 64 20 77 69 74 | 68 20 74 68 69 73 20 65 |ated wit|h this e|
|000056b0| 6e 74 72 79 20 69 6e 20 | 74 68 65 20 74 61 72 20 |ntry in |the tar |
|000056c0| 66 69 6c 65 2e 0a 54 68 | 69 73 20 64 6f 65 73 20 |file..Th|is does |
|000056d0| 6e 6f 74 20 6d 6f 64 69 | 66 79 20 74 68 65 20 64 |not modi|fy the d|
|000056e0| 69 73 6b 20 69 6d 61 67 | 65 3b 20 79 6f 75 20 6d |isk imag|e; you m|
|000056f0| 75 73 74 20 73 61 76 65 | 20 74 68 65 20 74 61 72 |ust save| the tar|
|00005700| 20 66 69 6c 65 20 69 74 | 73 65 6c 66 0a 66 6f 72 | file it|self.for|
|00005710| 20 74 68 69 73 20 74 6f | 20 62 65 20 70 65 72 6d | this to| be perm|
|00005720| 61 6e 65 6e 74 2e 1f 0a | 28 64 65 66 61 6c 69 61 |anent...|(defalia|
|00005730| 73 20 27 74 61 72 2d 63 | 68 6d 6f 64 2d 65 6e 74 |s 'tar-c|hmod-ent|
|00005740| 72 79 20 23 5b 28 6e 65 | 77 2d 6d 6f 64 65 29 20 |ry #[(ne|w-mode) |
|00005750| 22 c0 20 41 89 19 c2 0b | 49 88 29 c4 0d c6 c7 0b |". A....|I.).....|
|00005760| 5c 22 c8 c9 4f ca 50 5c | 22 87 22 20 5b 74 61 72 |\"..O.P\|"." [tar|
|00005770| 2d 63 75 72 72 65 6e 74 | 2d 64 65 73 63 72 69 70 |-current|-descrip|
|00005780| 74 6f 72 20 47 38 37 37 | 32 34 20 31 20 6e 65 77 |tor G877|24 1 new|
|00005790| 2d 6d 6f 64 65 20 74 61 | 72 2d 61 6c 74 65 72 2d |-mode ta|r-alter-|
|000057a0| 6f 6e 65 2d 66 69 65 6c | 64 20 74 61 72 2d 6d 6f |one-fiel|d tar-mo|
|000057b0| 64 65 2d 6f 66 66 73 65 | 74 20 66 6f 72 6d 61 74 |de-offse|t format|
|000057c0| 20 22 25 36 6f 22 20 30 | 20 36 20 22 00 20 22 5d | "%6o" 0| 6 ". "]|
|000057d0| 20 36 20 28 23 24 20 2e | 20 2d 32 32 31 34 32 29 | 6 (#$ .| -22142)|
|000057e0| 20 28 6c 69 73 74 20 28 | 74 61 72 2d 70 61 72 73 | (list (|tar-pars|
|000057f0| 65 2d 6f 63 74 61 6c 2d | 69 6e 74 65 67 65 72 2d |e-octal-|integer-|
|00005800| 73 61 66 65 20 28 72 65 | 61 64 2d 73 74 72 69 6e |safe (re|ad-strin|
|00005810| 67 20 22 4e 65 77 20 70 | 72 6f 74 65 63 74 69 6f |g "New p|rotectio|
|00005820| 6e 20 28 6f 63 74 61 6c | 29 3a 20 22 29 29 29 5d |n (octal|): ")))]|
|00005830| 29 0a 28 64 65 66 61 6c | 69 61 73 20 27 74 61 72 |).(defal|ias 'tar|
|00005840| 2d 61 6c 74 65 72 2d 6f | 6e 65 2d 66 69 65 6c 64 |-alter-o|ne-field|
|00005850| 20 23 5b 28 64 61 74 61 | 2d 70 6f 73 69 74 69 6f | #[(data|-positio|
|00005860| 6e 20 6e 65 77 2d 64 61 | 74 61 2d 73 74 72 69 6e |n new-da|ta-strin|
|00005870| 67 29 20 22 c0 20 89 19 | 41 1a c3 8e 8a c4 79 88 |g) ". ..|A.....y.|
|00005880| 60 1d c6 79 88 0d 60 7c | 88 c7 5c 6e 21 c8 b1 02 |`..y..`||..\n!...|
|00005890| 88 64 16 09 29 7e 88 09 | 40 0e 09 5c 5c ca 5c 5c |.d..)~..|@..\\.\\|
|000058a0| 89 1e 0b 0e 0c 5c 5c 62 | 88 60 60 0e 0d 47 5c 5c |.....\\b|.``..G\\|
|000058b0| 7c 88 0e 0d 63 88 ce 0e | 0b 89 cf 5c 5c 7b 21 1e ||...c...|...\\{!.|
|000058c0| 10 0e 0b 0e 11 5c 5c 62 | 88 60 60 d2 5c 5c 7c 88 |.....\\b|.``.\\|.|
|000058d0| d3 d4 0e 10 5c 22 63 88 | c4 63 88 d5 63 88 5c 6e |....\"c.|.c..c.\n|
|000058e0| d6 0e 10 49 88 d7 0e 0b | 89 cf 5c 5c 7b 0e 10 5c |...I....|..\\{..\|
|000058f0| 6e c4 48 23 2e 06 87 22 | 20 5b 74 61 72 2d 63 75 |n.H#..."| [tar-cu|
|00005900| 72 72 65 6e 74 2d 64 65 | 73 63 72 69 70 74 6f 72 |rrent-de|scriptor|
|00005910| 20 64 65 73 63 72 69 70 | 74 6f 72 20 74 6f 6b 65 | descrip|tor toke|
|00005920| 6e 73 20 28 28 6e 61 72 | 72 6f 77 2d 74 6f 2d 72 |ns ((nar|row-to-r|
|00005930| 65 67 69 6f 6e 20 31 20 | 74 61 72 2d 68 65 61 64 |egion 1 |tar-head|
|00005940| 65 72 2d 6f 66 66 73 65 | 74 29 29 20 30 20 70 20 |er-offse|t)) 0 p |
|00005950| 31 20 73 75 6d 6d 61 72 | 69 7a 65 2d 74 61 72 2d |1 summar|ize-tar-|
|00005960| 68 65 61 64 65 72 2d 62 | 6c 6f 63 6b 20 22 5c 6e |header-b|lock "\n|
|00005970| 22 20 74 61 72 2d 68 65 | 61 64 65 72 2d 6f 66 66 |" tar-he|ader-off|
|00005980| 73 65 74 20 2d 35 31 33 | 20 73 74 61 72 74 20 64 |set -513| start d|
|00005990| 61 74 61 2d 70 6f 73 69 | 74 69 6f 6e 20 6e 65 77 |ata-posi|tion new|
|000059a0| 2d 64 61 74 61 2d 73 74 | 72 69 6e 67 20 63 68 65 |-data-st|ring che|
|000059b0| 63 6b 73 75 6d 2d 74 61 | 72 2d 68 65 61 64 65 72 |cksum-ta|r-header|
|000059c0| 2d 62 6c 6f 63 6b 20 35 | 31 32 20 63 68 6b 20 74 |-block 5|12 chk t|
|000059d0| 61 72 2d 63 68 6b 2d 6f | 66 66 73 65 74 20 38 20 |ar-chk-o|ffset 8 |
|000059e0| 66 6f 72 6d 61 74 20 22 | 25 36 6f 22 20 3f 5c 20 |format "|%6o" ?\ |
|000059f0| 20 36 20 63 68 65 63 6b | 2d 74 61 72 2d 68 65 61 | 6 check|-tar-hea|
|00005a00| 64 65 72 2d 62 6c 6f 63 | 6b 2d 63 68 65 63 6b 73 |der-bloc|k-checks|
|00005a10| 75 6d 5d 20 36 5d 29 0a | 23 40 31 38 39 20 49 6e |um] 6]).|#@189 In|
|00005a20| 20 74 61 72 20 73 75 62 | 66 69 6c 65 20 6d 6f 64 | tar sub|file mod|
|00005a30| 65 2c 20 77 72 69 74 65 | 20 74 68 69 73 20 62 75 |e, write| this bu|
|00005a40| 66 66 65 72 20 62 61 63 | 6b 20 69 6e 74 6f 20 69 |ffer bac|k into i|
|00005a50| 74 73 20 70 61 72 65 6e | 74 20 74 61 72 2d 66 69 |ts paren|t tar-fi|
|00005a60| 6c 65 20 62 75 66 66 65 | 72 2e 0a 54 68 69 73 20 |le buffe|r..This |
|00005a70| 64 6f 65 73 6e 27 74 20 | 77 72 69 74 65 20 61 6e |doesn't |write an|
|00005a80| 79 74 68 69 6e 67 20 74 | 6f 20 64 69 73 6b 20 2d |ything t|o disk -|
|00005a90| 20 79 6f 75 20 6d 75 73 | 74 20 73 61 76 65 20 74 | you mus|t save t|
|00005aa0| 68 65 20 70 61 72 65 6e | 74 20 74 61 72 2d 66 69 |he paren|t tar-fi|
|00005ab0| 6c 65 20 62 75 66 66 65 | 72 0a 74 6f 20 6d 61 6b |le buffe|r.to mak|
|00005ac0| 65 20 79 6f 75 72 20 63 | 68 61 6e 67 65 73 20 70 |e your c|hanges p|
|00005ad0| 65 72 6d 61 6e 65 6e 74 | 2e 1f 0a 28 64 65 66 61 |ermanent|...(defa|
|00005ae0| 6c 69 61 73 20 27 74 61 | 72 2d 73 75 62 66 69 6c |lias 'ta|r-subfil|
|00005af0| 65 2d 73 61 76 65 2d 62 | 75 66 66 65 72 20 23 5b |e-save-b|uffer #[|
|00005b00| 6e 69 6c 20 22 08 ab 84 | c1 c2 21 87 c3 20 87 22 |nil "...|..!.. ."|
|00005b10| 20 5b 62 75 66 66 65 72 | 2d 66 69 6c 65 2d 6e 61 | [buffer|-file-na|
|00005b20| 6d 65 20 63 61 6c 6c 2d | 69 6e 74 65 72 61 63 74 |me call-|interact|
|00005b30| 69 76 65 6c 79 20 73 61 | 76 65 2d 62 75 66 66 65 |ively sa|ve-buffe|
|00005b40| 72 20 74 61 72 2d 73 75 | 62 66 69 6c 65 2d 73 61 |r tar-su|bfile-sa|
|00005b50| 76 65 2d 62 75 66 66 65 | 72 2d 69 6e 74 65 72 6e |ve-buffe|r-intern|
|00005b60| 61 6c 5d 20 32 20 28 23 | 24 20 2e 20 32 33 30 37 |al] 2 (#|$ . 2307|
|00005b70| 30 29 20 6e 69 6c 5d 29 | 0a 28 64 65 66 61 6c 69 |0) nil])|.(defali|
|00005b80| 61 73 20 27 74 61 72 2d | 73 75 62 66 69 6c 65 2d |as 'tar-|subfile-|
|00005b90| 73 61 76 65 2d 62 75 66 | 66 65 72 2d 69 6e 74 65 |save-buf|fer-inte|
|00005ba0| 72 6e 61 6c 20 23 5b 6e | 69 6c 20 22 c0 c1 21 ab |rnal #[n|il "..!.|
|00005bb0| 83 09 ac 84 c2 c3 21 88 | c4 09 21 ac 84 c2 c5 21 |......!.|..!....!|
|00005bc0| 88 c0 c6 21 ab 84 0e 06 | ac 84 c2 c7 21 88 c0 c8 |...!....|....!...|
|00005bd0| 21 ab 88 0e 08 ab 84 c2 | c9 21 88 c0 ca 21 ab 88 |!.......|.!...!..|
|00005be0| 0e 5c 6e ab 84 c2 cb 21 | 88 c0 cc 21 ab 88 0e 0c |.\n....!|...!....|
|00005bf0| ab 84 c2 cd 21 88 c0 ce | 21 ab 88 0e 0e ab 84 c2 |....!...|!.......|
|00005c00| cf 21 88 c0 d0 21 ab 88 | 0e 10 ab 84 c2 d1 21 88 |.!...!..|......!.|
|00005c10| 8a 70 d2 20 0e 06 1e 13 | 1e 14 1e 15 09 71 88 0e |.p. ....|.....q..|
|00005c20| 13 41 1e 16 0e 13 40 1e | 17 0e 16 d8 48 1e 19 0e |.A....@.|....H...|
|00005c30| 16 da 48 1e 1b dc 89 0e | 1b dd 5c 5c de 5c 22 df |..H.....|..\\.\".|
|00005c40| 5c 22 1e 20 0e 13 0e 21 | 73 89 1e 5c 22 41 1e 23 |\". ...!|s..\"A.#|
|00005c50| 0e 5c 22 ac 84 c2 e4 21 | 88 e5 8e 8a 7e 88 0e 17 |.\"....!|....~...|
|00005c60| 0e 26 5c 5c e7 5c 5c 89 | 1e 28 dc 89 0e 1b dd 5c |.&\\.\\.|.(.....\|
|00005c70| 5c de 5c 22 df 5c 22 5c | 5c 1e 29 0e 28 0e 29 7c |\.\".\"\|\.).(.)||
|00005c80| 88 0e 28 62 88 ea 0e 15 | 21 88 dc 89 0e 14 dd 5c |..(b....|!......\|
|00005c90| 5c de 5c 22 df 5c 22 1e | 2b 0e 28 0e 14 5c 5c 62 |\.\".\".|+.(..\\b|
|00005ca0| 88 ec 0e 2b 0e 14 5a d8 | 5c 22 63 88 0e 16 da 0e |...+..Z.|\"c.....|
|00005cb0| 14 49 88 0e 2b 0e 20 5a | 1e 2d 0e 23 ee 1e 2f 89 |.I..+. Z|.-.#../.|
|00005cc0| 1e 30 ab 95 0e 30 40 89 | 16 2f 89 40 0e 2d 5c 5c |.0...0@.|./.@.-\\|
|00005cd0| a0 88 0e 30 41 89 16 30 | ac 6b 2b 0e 28 f1 5a 89 |...0A..0|.k+.(.Z.|
|00005ce0| 1e 32 0e 33 5c 5c 62 88 | 60 60 f4 5c 5c 7c 88 f5 |.2.3\\b.|``.\\|..|
|00005cf0| f6 0e 14 5c 22 63 88 f7 | 63 88 0e 38 ab fe 0e 32 |...\"c..|c..8...2|
|00005d00| 0e 39 5c 5c 62 88 60 60 | f4 5c 5c 7c 88 ee 89 89 |.9\\b.``|.\\|....|
|00005d10| 1e 3a 1e 3b 1e 3c fd fe | 21 ab 8a fe 20 89 16 3c |.:.;.<..|!... ..<|
|00005d20| 89 41 40 a1 88 0e 3c 40 | 16 3b 0e 3c 41 16 3a 0e |.A@...<@|.;.<A.:.|
|00005d30| 3c ab ba 0e 16 ff 0e 3c | 49 88 81 40 00 dc 81 41 |<......<|I..@...A|
|00005d40| 00 0e 3b 81 42 00 5c 22 | 81 43 00 5c 22 0e 3a 5c |..;.B.\"|.C.\".:\|
|00005d50| 22 16 3a dc 0e 3b 81 44 | 00 5c 22 16 3b f5 81 45 |".:..;.D|.\".;..E|
|00005d60| 00 0e 3b 5c 22 63 88 f5 | 81 46 00 0e 3a 5c 22 63 |..;\"c..|.F..:\"c|
|00005d70| 88 aa 90 f5 81 47 00 d8 | 5c 22 63 88 0e 16 ff d8 |.....G..|\"c.....|
|00005d80| 89 42 49 88 2b 81 48 00 | 0e 32 0e 28 7b 21 1e 49 |.BI.+.H.|.2.({!.I|
|00005d90| 0e 32 0e 4a 5c 5c 62 88 | 60 60 81 4b 00 5c 5c 7c |.2.J\\b.|``.K.\\||
|00005da0| 88 f5 81 4c 00 0e 49 5c | 22 63 88 d8 63 88 f7 63 |...L..I\|"c..c..c|
|00005db0| 88 0e 16 81 4d 00 0e 49 | 49 88 2a 0e 21 47 0e 5c |....M..I|I.*.!G.\|
|00005dc0| 22 47 5a 1e 4e 81 4f 00 | 62 88 81 50 00 0e 4e 21 |"GZ.N.O.|b..P..N!|
|00005dd0| 88 d8 79 88 60 81 51 00 | 20 0e 26 ee 93 1e 52 1e |..y.`.Q.| .&...R.|
|00005de0| 53 81 4f 00 79 88 0e 53 | 60 7c 88 81 54 00 81 55 |S.O.y..S|`|..T..U|
|00005df0| 00 0e 16 81 56 00 5c 22 | 81 57 00 5c 22 88 81 58 |....V.\"|.W.\"..X|
|00005e00| 00 0e 52 21 16 26 2e 06 | 81 59 00 20 88 2e 09 81 |..R!.&..|.Y. ....|
|00005e10| 5a 00 81 56 00 21 88 0e | 15 71 88 81 5a 00 ee 21 |Z..V.!..|.q..Z..!|
|00005e20| 88 81 5b 00 81 5c 5c 00 | c4 09 21 5c 22 2c 87 22 |..[..\\.|..!\",."|
|00005e30| 20 5b 62 6f 75 6e 64 70 | 20 73 75 70 65 72 69 6f | [boundp| superio|
|00005e40| 72 2d 74 61 72 2d 62 75 | 66 66 65 72 20 65 72 72 |r-tar-bu|ffer err|
|00005e50| 6f 72 20 22 74 68 69 73 | 20 62 75 66 66 65 72 20 |or "this| buffer |
|00005e60| 68 61 73 20 6e 6f 20 73 | 75 70 65 72 69 6f 72 20 |has no s|uperior |
|00005e70| 74 61 72 20 66 69 6c 65 | 20 62 75 66 66 65 72 2e |tar file| buffer.|
|00005e80| 22 20 62 75 66 66 65 72 | 2d 6e 61 6d 65 20 22 74 |" buffer|-name "t|
|00005e90| 68 65 20 73 75 70 65 72 | 69 6f 72 20 74 61 72 20 |he super|ior tar |
|00005ea0| 66 69 6c 65 27 73 20 62 | 75 66 66 65 72 20 68 61 |file's b|uffer ha|
|00005eb0| 73 20 62 65 65 6e 20 6b | 69 6c 6c 65 64 2e 22 20 |s been k|illed." |
|00005ec0| 73 75 70 65 72 69 6f 72 | 2d 74 61 72 2d 64 65 73 |superior|-tar-des|
|00005ed0| 63 72 69 70 74 6f 72 20 | 22 74 68 69 73 20 62 75 |criptor |"this bu|
|00005ee0| 66 66 65 72 20 64 6f 65 | 73 6e 27 74 20 68 61 76 |ffer doe|sn't hav|
|00005ef0| 65 20 61 6e 20 69 6e 64 | 65 78 20 69 6e 74 6f 20 |e an ind|ex into |
|00005f00| 69 74 73 20 73 75 70 65 | 72 69 6f 72 20 74 61 72 |its supe|rior tar|
|00005f10| 20 66 69 6c 65 21 22 20 | 63 72 79 70 74 2d 62 75 | file!" |crypt-bu|
|00005f20| 66 66 65 72 2d 73 61 76 | 65 2d 65 6e 63 72 79 70 |ffer-sav|e-encryp|
|00005f30| 74 65 64 20 22 44 6f 6e | 27 74 20 6b 6e 6f 77 20 |ted "Don|'t know |
|00005f40| 68 6f 77 20 74 6f 20 65 | 6e 63 72 79 70 74 20 62 |how to e|ncrypt b|
|00005f50| 61 63 6b 20 69 6e 74 6f | 20 61 20 74 61 72 20 66 |ack into| a tar f|
|00005f60| 69 6c 65 2e 22 20 63 72 | 79 70 74 2d 62 75 66 66 |ile." cr|ypt-buff|
|00005f70| 65 72 2d 73 61 76 65 2d | 63 6f 6d 70 61 63 74 20 |er-save-|compact |
|00005f80| 22 44 6f 6e 27 74 20 6b | 6e 6f 77 20 68 6f 77 20 |"Don't k|now how |
|00005f90| 74 6f 20 63 6f 6d 70 61 | 63 74 20 62 61 63 6b 20 |to compa|ct back |
|00005fa0| 69 6e 74 6f 20 61 20 74 | 61 72 20 66 69 6c 65 2e |into a t|ar file.|
|00005fb0| 22 20 63 72 79 70 74 2d | 62 75 66 66 65 72 2d 73 |" crypt-|buffer-s|
|00005fc0| 61 76 65 2d 63 6f 6d 70 | 72 65 73 73 20 22 44 6f |ave-comp|ress "Do|
|00005fd0| 6e 27 74 20 6b 6e 6f 77 | 20 68 6f 77 20 74 6f 20 |n't know| how to |
|00005fe0| 63 6f 6d 70 72 65 73 73 | 20 62 61 63 6b 20 69 6e |compress| back in|
|00005ff0| 74 6f 20 61 20 74 61 72 | 20 66 69 6c 65 2e 22 20 |to a tar| file." |
|00006000| 63 72 79 70 74 2d 62 75 | 66 66 65 72 2d 73 61 76 |crypt-bu|ffer-sav|
|00006010| 65 2d 67 7a 69 70 20 22 | 44 6f 6e 27 74 20 6b 6e |e-gzip "|Don't kn|
|00006020| 6f 77 20 68 6f 77 20 74 | 6f 20 67 7a 69 70 20 62 |ow how t|o gzip b|
|00006030| 61 63 6b 20 69 6e 74 6f | 20 61 20 74 61 72 20 66 |ack into| a tar f|
|00006040| 69 6c 65 2e 22 20 63 72 | 79 70 74 2d 62 75 66 66 |ile." cr|ypt-buff|
|00006050| 65 72 2d 73 61 76 65 2d | 66 72 65 65 7a 65 20 22 |er-save-|freeze "|
|00006060| 44 6f 6e 27 74 20 6b 6e | 6f 77 20 68 6f 77 20 74 |Don't kn|ow how t|
|00006070| 6f 20 66 72 65 65 7a 65 | 20 62 61 63 6b 20 69 6e |o freeze| back in|
|00006080| 74 6f 20 61 20 74 61 72 | 20 66 69 6c 65 2e 22 20 |to a tar| file." |
|00006090| 62 75 66 66 65 72 2d 73 | 69 7a 65 20 64 65 73 63 |buffer-s|ize desc|
|000060a0| 72 69 70 74 6f 72 20 73 | 75 62 66 69 6c 65 2d 73 |riptor s|ubfile-s|
|000060b0| 69 7a 65 20 73 75 62 66 | 69 6c 65 20 74 6f 6b 65 |ize subf|ile toke|
|000060c0| 6e 73 20 73 74 61 72 74 | 20 30 20 6e 61 6d 65 20 |ns start| 0 name |
|000060d0| 34 20 73 69 7a 65 20 61 | 73 68 20 35 31 31 20 2d |4 size a|sh 511 -|
|000060e0| 39 20 39 20 73 69 7a 65 | 2d 70 61 64 20 74 61 72 |9 9 size|-pad tar|
|000060f0| 2d 70 61 72 73 65 2d 69 | 6e 66 6f 20 68 65 61 64 |-parse-i|nfo head|
|00006100| 20 66 6f 6c 6c 6f 77 69 | 6e 67 2d 64 65 73 63 73 | followi|ng-descs|
|00006110| 20 22 43 61 6e 27 74 20 | 66 69 6e 64 20 74 68 69 | "Can't |find thi|
|00006120| 73 20 74 61 72 20 66 69 | 6c 65 20 65 6e 74 72 79 |s tar fi|le entry|
|00006130| 20 69 6e 20 69 74 73 20 | 70 61 72 65 6e 74 20 74 | in its |parent t|
|00006140| 61 72 20 66 69 6c 65 21 | 22 20 28 28 6e 61 72 72 |ar file!|" ((narr|
|00006150| 6f 77 2d 74 6f 2d 72 65 | 67 69 6f 6e 20 31 20 74 |ow-to-re|gion 1 t|
|00006160| 61 72 2d 68 65 61 64 65 | 72 2d 6f 66 66 73 65 74 |ar-heade|r-offset|
|00006170| 29 29 20 74 61 72 2d 68 | 65 61 64 65 72 2d 6f 66 |)) tar-h|eader-of|
|00006180| 66 73 65 74 20 2d 31 20 | 64 61 74 61 2d 73 74 61 |fset -1 |data-sta|
|00006190| 72 74 20 64 61 74 61 2d | 65 6e 64 20 69 6e 73 65 |rt data-|end inse|
|000061a0| 72 74 2d 62 75 66 66 65 | 72 20 73 75 62 66 69 6c |rt-buffe|r subfil|
|000061b0| 65 2d 73 69 7a 65 2d 70 | 61 64 20 6d 61 6b 65 2d |e-size-p|ad make-|
|000061c0| 73 74 72 69 6e 67 20 64 | 69 66 66 65 72 65 6e 63 |string d|ifferenc|
|000061d0| 65 20 6e 69 6c 20 64 65 | 73 63 20 2d 2d 64 6f 6c |e nil de|sc --dol|
|000061e0| 69 73 74 2d 74 65 6d 70 | 2d 2d 38 37 37 33 30 20 |ist-temp|--87730 |
|000061f0| 35 31 32 20 68 65 61 64 | 65 72 2d 73 74 61 72 74 |512 head|er-start|
|00006200| 20 74 61 72 2d 73 69 7a | 65 2d 6f 66 66 73 65 74 | tar-siz|e-offset|
|00006210| 20 31 32 20 66 6f 72 6d | 61 74 20 22 25 31 31 6f | 12 form|at "%11o|
|00006220| 22 20 3f 5c 20 20 74 61 | 72 2d 75 70 64 61 74 65 |" ?\  ta|r-update|
|00006230| 2d 64 61 74 65 73 74 61 | 6d 70 20 74 61 72 2d 74 |-datesta|mp tar-t|
|00006240| 69 6d 65 2d 6f 66 66 73 | 65 74 20 62 6f 74 20 74 |ime-offs|et bot t|
|00006250| 6f 70 20 6e 6f 77 20 66 | 62 6f 75 6e 64 70 20 63 |op now f|boundp c|
|00006260| 75 72 72 65 6e 74 2d 74 | 69 6d 65 20 35 20 6c 6f |urrent-t|ime 5 lo|
|00006270| 67 69 6f 72 20 6c 6f 67 | 61 6e 64 20 33 20 31 36 |gior log|and 3 16|
|00006280| 20 2d 32 20 22 25 35 6f | 22 20 22 25 30 36 6f 20 | -2 "%5o|" "%06o |
|00006290| 22 20 22 25 31 31 6f 20 | 22 20 63 68 65 63 6b 73 |" "%11o |" checks|
|000062a0| 75 6d 2d 74 61 72 2d 68 | 65 61 64 65 72 2d 62 6c |um-tar-h|eader-bl|
|000062b0| 6f 63 6b 20 63 68 6b 20 | 74 61 72 2d 63 68 6b 2d |ock chk |tar-chk-|
|000062c0| 6f 66 66 73 65 74 20 38 | 20 22 25 36 6f 22 20 36 |offset 8| "%6o" 6|
|000062d0| 20 70 6f 73 69 74 69 6f | 6e 20 31 20 6e 65 78 74 | positio|n 1 next|
|000062e0| 2d 6c 69 6e 65 20 6d 61 | 6b 65 2d 6d 61 72 6b 65 |-line ma|ke-marke|
|000062f0| 72 20 6d 20 70 20 69 6e | 73 65 72 74 2d 62 65 66 |r m p in|sert-bef|
|00006300| 6f 72 65 2d 6d 61 72 6b | 65 72 73 20 73 75 6d 6d |ore-mark|ers summ|
|00006310| 61 72 69 7a 65 2d 74 61 | 72 2d 68 65 61 64 65 72 |arize-ta|r-header|
|00006320| 2d 62 6c 6f 63 6b 20 74 | 20 22 5c 6e 22 20 6d 61 |-block t| "\n" ma|
|00006330| 72 6b 65 72 2d 70 6f 73 | 69 74 69 6f 6e 20 74 61 |rker-pos|ition ta|
|00006340| 72 2d 70 61 64 2d 74 6f | 2d 62 6c 6f 63 6b 73 69 |r-pad-to|-blocksi|
|00006350| 7a 65 20 73 65 74 2d 62 | 75 66 66 65 72 2d 6d 6f |ze set-b|uffer-mo|
|00006360| 64 69 66 69 65 64 2d 70 | 20 6d 65 73 73 61 67 65 |dified-p| message|
|00006370| 20 22 73 61 76 65 64 20 | 69 6e 74 6f 20 74 61 72 | "saved |into tar|
|00006380| 2d 62 75 66 66 65 72 20 | 5c 22 25 73 5c 22 20 2d |-buffer |\"%s\" -|
|00006390| 20 72 65 6d 65 6d 62 65 | 72 20 74 6f 20 73 61 76 | remembe|r to sav|
|000063a0| 65 20 74 68 61 74 20 62 | 75 66 66 65 72 21 22 5d |e that b|uffer!"]|
|000063b0| 20 36 5d 29 0a 23 40 31 | 30 30 20 49 66 20 77 65 | 6]).#@1|00 If we|
|000063c0| 20 61 72 65 20 62 65 69 | 6e 67 20 61 6e 61 6c 20 | are bei|ng anal |
|000063d0| 61 62 6f 75 74 20 74 61 | 72 20 66 69 6c 65 20 62 |about ta|r file b|
|000063e0| 6c 6f 63 6b 73 69 7a 65 | 73 2c 20 66 69 78 20 75 |locksize|s, fix u|
|000063f0| 70 20 74 68 65 20 63 75 | 72 72 65 6e 74 20 62 75 |p the cu|rrent bu|
+--------+-------------------------+-------------------------+--------+--------+